• Решите задачу по информатике на Pascal.
    Даны три числа вывести среднее число но при этом числа не могут быть одинаковыми.
    Например 9, 3, 14 нужно вывести 9.
    Или 15, 6, 1 нужно вывести 6.

Ответы 2

  • Решение вашей задачи
    answer img
    • Автор:

      oliver69
    • 5 лет назад
    • 0
  • //Максимально прямой(в значении тупой) код vara,b,c, max, min:real;beginReadln(a,b,c);if (a > b) and (a > c) then Max:= a;if (c > b) and (c > a) then Max:= c;if (b > a) and (b > c) then Max:= b;if (a < b) and (a < c) then Min:= a;if (c < b) and (c < a) then Min:= c;if (b < a) and (b < c) then Min:= b;if (a <> min) and (a <> max) then writeln(a);if (b <> min) and (b <> max) then writeln(b);if (c <> min) and (c <> max) then writeln(c);end. Пример:-9 3 63
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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