Question

Дана переменная N. Составьте программу, увеличивающую значение переменной N на единицу, если эта переменная положительная и уменьшить на единицу, если переменная N отрицательная.
пожалуйста

Answer 1

var n:integer;

begin

writeln ("введите число N");

read(n);

if n>0 then n:=n+1;

if n<0 then n:=n-1;

writeln (n);

end.