
Kono
6 год назад
Найти max{min{a, b}, min{c, d}}. Напишите пожалуйста программу в VBA
ОТВЕТЫ

Гено
Oct 24, 2020
Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))
End Sub
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))
End Sub
540
Смежные вопросы: