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

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

Question

Стелла

15 ноября, 08:24

+4

Ответы (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 целого числа х на целое число у, не используя операцию деления.