даны 2 целых числа n и m. найти значение выражения f=(n-2m)/( n+m) в квадрате. исходные данные запросите с клавиатуры и выведите результат на экран.

1

Ответы и объяснения

2014-01-13T14:35:17+00:00
Program zadacha;
Var m,n:Integer;
f:Real;
Begin
 Write('Введите число М: ');
 Read(m);
 Write('Введите число Н: ');
 Read(n);
 f:=(n-2*m)/(n+m)*(n+m);
 Write('Результат: ',f);
ReadLn;
End.