Sub M1()
MsgBox (Application.Max( _
Application.Min(InputBox("Введите a"), _
InputBox("Введите b")), _
Application.Min(InputBox("Введите c"), _
InputBox("Введите d")) _
))
End Sub
<em>Ответ прибл 6.5</em>
количество равновероятных событий в лото = 90
N=2^i
90=2^i
log 90 =log 2^i (логарифм по основанию 2)
i log 2 =log 90 (так log 2 =1 по основанию 2)
i=log 90 = lg 90 /lg 2 =1.95 / 0.30 =6.5 бит
<span>воспользуемся формулой I= log2N
</span><span>Имеем I= log28= 3 бита.</span>
1. 5 бит
2. 200 бит
3. 131072
4. 192 кб
5. 6 и 9