Задание:
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменятьего. Вывести полученноечисло.
Решение:
var i: Integer; begin Write ('Введите целое число: '); Readln (i); if i >=0 then inc (i); Writeln (i); end.
Знаете другой ответ?