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

Question

Манюха

3 января, 13:31

+1

Ответы (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.