(34 балла) Даны целые числа а и b (а > b). Определить: Результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; Остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на Pascal ABC/ C ПОМОЩЬЮ цикла WHILE

Ответ

Автор - Никита7531

var

a, b, ans: Integer;

begin

Readln(a, b);

ans := 0;

while ans * b <= a do

ans := ans + 1;

ans := ans - 1;

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

end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.