ТутРешу.Ру

Дано целое число. Если оно является положительным…

Задание:

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

Решение:

var i: Integer; begin Write ('Введите целое число: '); Readln (i); if i >=0 then inc (i); Writeln (i); end.




Знаете другой ответ?

Отправить свой ответ