Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число. Люди прошу помогите, пипец как надо!

Question

Сергуся

20 августа, 22:40

+4

Ответы (2)

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

Буся · Answer 1

var a:integer;

begin

readln (a) ;

if (a>0) then

begin

a:=a+1;

writeln (a) ;

end

else

writeln (a) ;

end.

Линуха · Answer 2

var

a: integer;

begin

readln (a) ;

if (a > 0) then

a : = a + 1;

writeln (a) ;

end.