Дано целое число а. если значение а > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. написать программу для решения этой .

sweetmalboro sweetmalboro    3   26.06.2019 13:40    2

Ответы
sevliekaterina2 sevliekaterina2  21.07.2020 10:55
Var a:integer;
begin
 readln(a);
 if a>0 then a:=a+1 else a:=a-1;
 writeln(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика