Даны 2 целых числа n и m. найти значение выражения f=(n-2m)/( n+m) в квадрате. исходные данные запросите с клавиатуры и выведите результат на экран.
Даны 2 целых числа n и m. найти значение выражения f=(n-2m)/( n+m) в квадрате. исходные данные запросите с клавиатуры и выведите результат на экран.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы