Склавиатуры вводится 2 числа,требуется найти квадрат наименьшего из них.

lavrovheadshot lavrovheadshot    1   21.06.2019 23:10    1

Ответы
Аниматик Аниматик  17.07.2020 10:55
Var a1,b1,a,b:integer;
begin
readln(a,b);
a1:=sqr(a);
b1:=sqr(b);
if (b1>a1)
then write(a1)
else write(b1)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы