Даны два числа, вывести на экран квадрат большего из них
Даны два числа, вывести на экран квадрат большего из них
Гость
Ответ(ы) на вопрос:
Гость Var a,b,a1,b1:integer;
begin
readln(a,b);
a1:=sqr(a);
b1:=sqr(b);
if a1>b1 then write(a1)
else write(b1);
end.
Не нашли ответ?
Похожие вопросы