Question

Даны действительные числа x,y,z. Проверить, нет ли среди них одинаковых чисел и выдать соответствующее сообщение. Если среди данных чисел нет одинаковых, то большее из x,y,z заменить средним арифметическим двух оставшихся значений.

Answer 1

Visual BasicВыделить код

Option Explicit

Function Min_3(a As Variant, b As Variant, c As Variant) As Variant

   Min_3 = a

   If a > b Then Min_3 = b

   If Min_3 > c Then Min_3 = c

End Function

 

Private Sub Form_Activate()

Dim a As Integer, b As Integer, c As Integer

 

a = Val(InputBox("Введите число"))

b = Val(InputBox("Введите число"))

c = Val(InputBox("Введите число"))

 

Print "Наименьшее из чисел " & a & ", " & b & ", " & c & " - число " & Min_3(a, b, c)

End Sub

Answer 2

Для решения этой задачи вам понадобится написать программный код. Вот пример решения на языке Python:

pythonCopy code
x = float(input("Введите число x: "))
y = float(input("Введите число y: "))
z = float(input("Введите число z: "))

if x == y or x == z or y == z:
    print("Среди введенных чисел есть одинаковые значения.")
else:
    max_value = max(x, y, z)
    average = (x + y + z - max_value) / 2
    if max_value == x:
        x = average
    elif max_value == y:
        y = average
    else:
        z = average
    print("Большее из введенных чисел было заменено средним арифметическим двух оставшихся значений.")
    print("x =", x)
    print("y =", y)
    print("z =", z)

В этом примере пользователю предлагается ввести значения для переменных x, y и z. Затем код проверяет, есть ли среди них одинаковые числа. Если есть, выводится сообщение об этом. Если нет, то находится наибольшее значение с помощью функции max(). Затем вычисляется среднее арифметическое двух оставшихся значений и оно заменяет наибольшее значение. Результат выводится на экран.