Дано целое число А. Если значение А больше 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи.
Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи.
Гость
Ответ(ы) на вопрос:
Гостьvar a:integer;
begin
readln(a);
if a>0 then a:=a+1 else a:=a-1;
writeln(a);
end.
Не нашли ответ?
Похожие вопросы