отыскать квадрат целой доли результата деления меньшего из двух чисел на

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

Задать свой вопрос
2 ответа
var
a, b: integer; 
begin
writeln('Введите два числа: ');
readln(a,b);
if a lt; b then writeln(sqr(trunc((a/b))))
else writeln(sqr(trunc((b/a))));
end.
Если меньшее чосло поделить на большое будет меньше единицы, то есть ответ 0.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт