Задать вопрос
17 сентября, 02:47

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

+2
Ответы (1)
  1. 17 сентября, 03:58
    0
    var

    i : Integer;

    begin

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

    Readln (i) ;

    if i > = 0 then inc (i) ;

    Writeln (i) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменятьего. Вывести полученное число. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы