Цикл с предусловием Составить программу нахождения частного q и остатка от деления r целого числа х на целое число у, не используя операцию деления.

Цикл с предусловием Составить программу нахождения частного q и остатка от деления r целого числа х на целое число у, не используя операцию деления.
Гость
Ответ(ы) на вопрос:
Гость
var  x, y, q, r: integer; begin  read(x,y);  r := x;  q := 0;  while r >= y do    begin    r := r - y;    q := q + 1    end;  write(q,' ',r)  end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы