Написать программу на языке Паскаль. Дано целое число. Если оно является положительным, то прибавьте к нему 1 : в противном случае не изменять его. Вывести полученное число.

Question

Варламий

15 декабря, 17:24

+4

Ответы (1)

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

Веденей · Answer 1

Program N1;

var

a:integer;

begin

readln (a) ;

If (a>0) then writeln (a+1)

else writeln (a) ;

end.