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

Question

Таисия

8 февраля, 18:52

+3

Ответы (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.