Даны два числа x и у, большее из них возвести в квадрат

gelya12121 gelya12121    1   11.06.2019 23:20    2

Ответы
Борель Борель  09.07.2020 18:47
Var
a,b,max:Integer;
Read(a,b);
if (a>b) then max:=a*a
 else if (b>a) then max:=b*b;
Writeln(max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика