Даны три целых числа, найти среднее из них. - VB
Формулировка задачи:
ЗАДАНИЕ
Даны три целых числа, найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего.
Вроде не сложное, но у меня затруднения. Заранее благодарен.
Решение задачи: «Даны три целых числа, найти среднее из них.»
textual
Листинг программы
Function Med(a, b, c) Select Case -(a < b) - 2 * (a < c) - 4 * (b < c) Case 0, 7: Med = b Case 1, 6: Med = a Case 3, 4: Med = c 'можно Case Else, потому что вариантов 2, 5 не бывает никогда! End Select End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д