Вопрос, который вызвал трудности

Дано натуральное (целое неотрицательное) число A и целое положительное число D. Вычислить частное Q и остаток R при делении

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

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.