• Дано целое число А. Если значение А > 0, то необходимо увеличить его на единицу, иначе уменьшить на 1. Написать программу для решения этой задачи. Протестировать программу для A=3, A=0, A=-12.

Ответы 1

  • program abc;var a:real;beginreadln (a);if (a>0) then a:=a+1 else a:=a-1;writeln (a);readkey;end.
    • Автор:

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

Войти через Google

или

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

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

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