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

Question

Боруля

30 марта, 20:15

+2

Ответы (1)

Знаете ответ?

Наталья · Answer 1

Program chisloA;

Var a:longint;

Begin

readln (a) ;

If a>0 then a:=a+1

else a:=a-1;

writeln (a) ;

End.