Ответы на вопрос:
Var a: integer; begin readln(a); if a> 0 then a: =a+1 else a: =a-2; writeln(a); end.
Популярно: Информатика
-
Rawree25803.09.2021 05:47
-
Pr0100Chell28.04.2020 00:21
-
orazaymesaurov13.05.2023 17:15
-
Vee1924.01.2021 19:04
-
kseniya2007221.05.2021 14:40
-
makeevaed03.05.2021 17:07
-
Радость212903.06.2021 13:32
-
ЯЛюблюЛето25.12.2022 16:05
-
siemens22725.12.2021 19:39
-
akerkebaidylda09.01.2021 16:53