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

ева470 ева470    2   17.07.2019 15:50    0

Ответы
kitsrarr kitsrarr  15.09.2020 17:21
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика