Ответы на вопрос:
Var a: integer; begin readln(a); while (a > 3) do a : = a - 4; writeln(a); end. если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации: var a: integer; begin readln(a); while (a > 0) do a : = a - 4; writeln(a); end.
Популярно: Информатика
-
Maretoyi1234525.03.2022 18:23
-
микки3525.10.2021 02:09
-
алия25609.11.2020 07:44
-
nastyakulikova511.10.2022 20:27
-
arsenibest0312.11.2022 16:01
-
annymayy012.03.2023 23:21
-
zool2929.01.2021 18:02
-
Mitaren10n310.07.2020 13:42
-
Shurt14.06.2020 13:28
-
OlesyaSteb22.03.2021 16:14