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

0 голосов
73 просмотров

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


Информатика (52 баллов) | 73 просмотров
Дан 1 ответ
0 голосов

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.

(8.5k баллов)
0

Спасибо огромное)