Sub Zadanie()
n = CInt(InputBox("n ="))
for i = 1 to n
t = i
s = 0
Do While t > 0
s = s + (t mod 10)^3
t = t \ 10
Loop
if i=s then MsgBox i
next
End Sub
Компьютера)))))))))))))эээх как же легко
Общее количество кубиков - 24+8=32
Шанс достать красный кубик равен 24/32 = 3/4. Количество информации о том, что вытащен красный кубик будет равно ㏒₂(4/3) ≈ 0.415 бит
Шанс достать черный кубик равен 8/32 = 1/4. Количество информации о
том, что вытащен черный кубик будет равно ㏒₂(4) = 2 бит
<span>Делим число на 2 и выписываем остатки</span>
<span>536 = 268·2 + </span>0
<span>268 = 134·2 + </span>0
<span>134 = 67·2 + </span>0
<span>67 = 33·2 + </span>1
<span>33 = 16·2 + </span>1
<span>16 = 8·2 + </span>0
<span>8 = 4·2 + </span>0
<span>4 = 2·2 + </span>0
<span>2 = 1·2 + </span>0
<span>Последний множитель перед 2 равный </span>1<span> записываем первым.</span>
<span>Затем записываем найденные остатки в обратном порядке.</span>
<span>Получаем: </span>1000011000