Даны два числа x и у, большее из них возвести в квадрат
Даны два числа x и у, большее из них возвести в квадрат
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы