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

Question

Харлампий

28 августа, 04:29

+3

Ответы (2)

Знаете ответ на вопрос?

Ала · Answer 1

var

a: integer;

begin

readln (a) ;

if (a > 0) then

a : = a + 1;

writeln (a) ;

end.

Люцина · Answer 2

var a:integer;

begin

readln (a) ;

if (a>0) then

begin

a:=a+1;

writeln (a) ;

end

else

writeln (a) ;

end.