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.

Answer 2

там в 1 плюс я исправил

Answer 3

сори за не внимательность забыл тип указать поправь там у себя

Answer 4

ок

Answer 5

еще раз спасибо