Информатика

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


<< Предыдущий вопрос Следующий вопрос >>

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.

Загрузить файл
Сомневаешься в ответе?

Если сомневаешься в правильности ответа или его просто нет, то попробуй воспользоваться поиском на сайте и найти похожие вопросы по предмету Информатика либо задай свой вопрос и получи ответ в течении нескольких минут.


Смотреть другие ответы