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

Question

Информатика

Артамоныч

9 мая, 11:51

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

+2

Ответы (1)

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

Нюня · Answer 1

Var a, b:real;

begin

writeln ('vvedi a:') ;

readln (a) ;

writeln ('vvedi b:') ;

readln (b) ;

if (a*a) > (b*b) then writeln ('N=1') else writeln ('N=2') ;

end.