Артем Бoчков
программирование. VBA (бейсик) помогите решить задачу. Даны два числа. Большее из них замените полусуммой этих чисел
спасибо)))
спасибо)))
Sub max_to_semisum(a As Double, b As Double)
If a > b Then
a = (a + b) / 2
Else
b = (a + b) / 2
End If
End Sub