Составить программы в среде PascalABC.NET: Дано целое число. Если оно положительное, то прибавить к нему 1. В противном случае вычесть из него 2. Вывести полученное число.

Предыдущий
вопрос Следующий
вопрос

Программа на PascalABC.NET:

program PositiveOrNegative
va
number: integer
begi
writeln('Введите целое число:')
readln(number)
if number > 0 the
number := number +
els
number := number - 2
writeln('Полученное число:', number)
end.

После ввода целого числа программа проверит его знак и выполнит необходимую операцию (прибавит 1, если число положительное, или вычтет 2, если число отрицательное), а затем выведет результат.