Question

Дано натуральное (целое неотрицательное) число  A  и целое положительное число D. Вычислить частное Q и остаток R при делении A на D, не используя операций DIV и MOD. (Согласно определению, А = Q * D + R, 0 <= R < D.)

Answer 1

USES Crt;
VAR
   A, D, R, Q : INTEGER;
BEGIN
   ClrScr;
   Write(‘ Введите два значения ‘);   ReadLn(a,d);
    R := A; Q := 0;
   While Not (R < D) DO Begin
      R := R - D; {R >= 0}
      Q := Q + 1;
   End;
   WriteLn(‘ Частное = ’,Q);
   WriteLn(‘ Остаток = ’,R);
END.