Вывести на экран частное и остаток от деления A на B, не используя операцию деления

@44456 · Регистрация: 02.03.2020

Цикл с предусловием WHILE.

С клавиатуры вводится два натуральных числа -- A и B.

Вывести на экран частное и остаток от деления A на B, не используя операцию деления.

Подсказка: нужно вычитать из первого числа второе и считать, сколько раз это получилось сделать.

@Cyborg Drone · 14.01.2021, 09:45

Pascal

begin
  var (a, b) := ReadInteger2;
  var d := 0;
  while a > b do
    begin
      d += 1;
      a -= b
    end;
  PrintLn(d, a)
end.

Опции темы

Вывести на экран частное и остаток от деления A на B, не используя операцию деления

Решение