Найти квадрат наибольшего из двух чисел а и б

meowpeww10 meowpeww10    3   11.11.2019 10:10    1

Ответы
Criss666 Criss666  10.10.2020 12:21

program asd;

var

a,b : real;

begin

read(a,b);

if a > b then

begin

a := a * a;

writeln(a);

end;

if b > a then

begin

b := b * b;

writeln(b);

end

else

writeln('Числа равны');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика