Ответы на вопрос:
Program chisla;
Uses Crt;
Var a:integer;
Begin;
Writeln ('Введите любое целое число');
Readln a;
If a>0 then a:=a+1 else a:=a-2;
Writeln ('a=',a);
End
Объяснение:
Один из вариантов
Популярно: Информатика
-
Polina7383773902.09.2020 18:05
-
vika03062007118.12.2022 05:33
-
2888326.01.2021 00:20
-
бернер25.03.2023 18:16
-
нан0802.03.2023 03:25
-
r8n73x999917.10.2021 22:31
-
Эхэхэхэхэхэх02.04.2020 04:16
-
Электрик201602.08.2022 05:45
-
LolliPop61102.03.2020 12:49
-
PaymLaim13.03.2022 05:56