Question

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

Answer 1

var n, m :integer;
f: real;
begin
Writeln('Введите с клавиатуры  два целых числа');
readln(n, m);
f:=sqr((n - (2*m))/(n+m));
writeln('Число n =', n);
writeln('Число m =', m);
writeln('Результат вычисления  =',f);
end.

Answer 2

program gt;
var n,m:integer;
f:real;
begin
readln(n,m);
f:=(n-2*m)/((n+m)*(n+m))
writeln('n=',n);
writeln('m=',m);
writeln('f=',f);
end.