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

Question

Информатика

Макс

3 марта, 13:08

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

+3

Ответы (2)

Знаете ответ на вопрос?

Лийка · Answer 1

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.

Флориан · Answer 2

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.