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

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

Question

Леонида

12 июня, 06:58

+2

Ответы (1)

Знаете ответ?

Савёл · Answer 1

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.

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