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

sashachernov1 sashachernov1    2   28.03.2019 16:50    1

Ответы
timofeierofeev timofeierofeev  27.05.2020 03:21

var
    i : Integer;
begin

 

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

 

    if i >= 0 then inc(i);

 

    Writeln(i);


end.   

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика