Ответы на вопрос:
var a : integer; begin readln (a); if a > 0 then a : = a +1; if a < 0 then a : = a-2 if a= 0 then a : = 10; writeln (a); end.
Популярно: Информатика
-
Food798342720.11.2022 01:06
-
NastyaCat2110.02.2020 20:09
-
killfa01.05.2023 01:23
-
andreisolo1813.08.2021 17:41
-
salih226.05.2021 12:49
-
sалаьы02.01.2023 07:53
-
СлюсаревИван28.01.2020 15:17
-
annalonina05.12.2021 21:54
-
oles201407.01.2022 07:10
-
pRoToTyPe95wF16.05.2021 05:56