Найдите квадрат наибольшего из двух чисел А и В и вывести на печать признак N=1, если наибольшим является А, и N=2, если наибольшим является В.

Question

Лера

11 апреля, 23:57

+5

Ответы (1)

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

Нил · Answer 1

Var a, b:real;

begin

readln (a, b) ;

a:=sqr (a) ;

b:=sqr (b) ;

if a > b then write ('n=1')

else write ('n=2') ;

end.