Цикл с предусловием
Составить программу нахождения частного q и остатка от деления r целого числа х на целое число у, не используя операцию деления.
Составить программу нахождения частного q и остатка от деления r целого числа х на целое число у, не используя операцию деления.
More Questions From This User See All
Answers & Comments
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.