Предмет: Информатика, автор: yuliya91

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

Ответы

Автор ответа: Banished
9
var a:integer;
begin
 readln(a);
 if a>0 then a:=a+1 else a:=a-1;
 writeln(a);
end.
Похожие вопросы
Предмет: Биология, автор: Аноним