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

Ответы 2

  • var a:integer;

    begin

    readln (a);

    if (a>0) then  

    begin

    a:=a+1;

    writeln (a);

    end

    else 

    writeln (a);

    end.

  • var    a: integer;begin    readln(a);    if (a > 0) then          a := a + 1;    writeln(a);end.

    • Автор:

      melissa37
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years