Даны целые числа a и b (a > b). Определите: результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; остаток от деления a на b, не используя стандартную операцию вычисления остатка. Решите на Pascal ABC.

Для целочисленного деления без div и mod можно многократно вычитать делитель из делимого, пока делимое не станет меньше делителя. Количество вычитаний — частное, оставшееся число — остаток.

Программа на Pascal ABC:

var a, b, quotient, remainder: integer;
begin
write('Введите a и b (a > b): ');
readln(a, b);
quotient := 0;
remainder := a;
while remainder >= b do
begin
remainder := remainder - b;
quotient := quotient + 1;
end;
writeln('Частное: ', quotient);
writeln('Остаток: ', remainder);
end.

0 0 Пожаловаться