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

Question

Информатика

Евгеньюшка

9 октября, 06:35

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

+1

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