89224717238
11.04.2020 09:03

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Sam223225
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота