(34 балла) Даны целые числа а и b (а amp;gt; b).

(34 балла) Даны целые числа а и b (а gt; b). Найти: Итог целочисленного разделенья a на b, не используя стандартную операцию целочисленного деления; Остаток от дробления а на b не используя стандартную операцию вычисления остатка. решите на Pascal ABC/ C Поддержкою цикла WHILE

Задать свой вопрос
1 ответ

var

a, b, ans: Integer;

begin

Readln(a, b);

ans := 0;

while ans * b lt;= a do

ans := ans + 1;

ans := ans - 1;

Write(ans,' ', a-(ans*b));

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт