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

Ответы 4

  • программу проверила, она пошла
  • да да,все норм...я сама почти такую написала,просто не догоняла где я не так написала
    • Автор:

      marcus
    • 6 лет назад
    • 0
  • var a: integer;beginread(a);if a>=0 then a:= a+1else a:= a-2;write(a);end.
    • Автор:

      rufioge7z
    • 6 лет назад
    • 0
  • var a :longint;beginreadln(a);If a>0 then a:=a+1 else a:=a-2;writeln(a);end.
    • Автор:

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

Войти через Google

или

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

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

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