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

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

Задать свой вопрос
1 ответ
Var a1,b1,a,b:integer;
begin
readln(a,b);
a1:=sqr(a);
b1:=sqr(b);
if (b1gt;a1)
then write(a1)
else write(b1)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт