profile
Опубликовано 5 лет назад по предмету Информатика от Domenikchik

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

  1. Ответ
    Ответ дан Yegor55

    var
        i : Integer;
    begin

     

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

     

        if i >= 0 then inc(i);

     

        Writeln(i);


    end.   

Самые новые вопросы