• Придумать задачу для Pascal ABC, которая содержит не менее 3 условий (разветвляющиеся вычислительные процессы) и написать программу к ней

Ответы 3

  • var a;
    • Автор:

      hank
    • 6 лет назад
    • 0
  • var a;beginreadln(a);if a mod 2=0 thenif a<20 then a:=a+5elsea:=a-5else if a<0 thena:=a*(-1)elsea:=a*2;writeln(a);end.
    • Автор:

      jaxlbtq
    • 6 лет назад
    • 0
  • Задача: Пользователем вводится целое число. Если оно чётное и больше 20, то отнять 5, если меньше 20, прибавить 5. Если нечетное и отрицательное, то поменять знак числа, если положительное, то умножить на 2. Вывести полученное число на экран.
    • Автор:

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

Войти через Google

или

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

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

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