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

Question

Ная

4 июня, 04:30

+2

Ответы (1)

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

Беля · Answer 1

var

i : Integer;

begin

Write ('Введите целое число: ') ;

Readln (i) ;

if i > = 0 then inc (i) ;

Writeln (i) ;

end.