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

Question

Маюша

3 января, 18:56

+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.