Ответы на вопрос:
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.
Популярно: Информатика
-
dima103122.01.2023 09:39
-
ISZ200212.02.2020 22:39
-
mandish0206.05.2020 12:05
-
suchilinaelya05.02.2020 03:21
-
fgydsgfgysa11.04.2023 13:07
-
karinkacommelЛіза03.03.2021 03:13
-
полнаума09.04.2023 22:57
-
BEHEP01.04.2023 13:37
-
olga8888888888888821.10.2022 20:18
-
кирилл212412.08.2021 22:44