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

Question

Информатика

Артамоныч

1 сентября, 17:15

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

+5

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