Ответы
Ответ дал:
0
var x,y,q,r: integer;
begin
x:=16;y:=2;
r:=16;q:=0;
while r>=x do begin
r:=r-y;
q:=q+1;
end;
writeln(q,' ',r);
end.
begin
x:=16;y:=2;
r:=16;q:=0;
while r>=x do begin
r:=r-y;
q:=q+1;
end;
writeln(q,' ',r);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад