Раскладываем по степеням двойки:
67 (10cc) = 64+2+1 = 2^6+2^1+2^0 = 1 000 011 (2cc)
ИЛИ
67 |2
66 |-----
---- | 33 | 2
1 32 |----
----| 16 |2
1| 16 |------
----| 8| 2
0| 8|-----
---| 4|2
0| 4|-----
--|2|2
0|2|----
--| 1 <----- первая цифра в числе и далее - остатки
0
49 (10cc)=32+16+1=2^5+2^4+2^0=110 001 (2cc)
54= 32+16+4+2= 2^5+2^4+2^2+2^1= 110 110 (2cc)
81=64+16+1=2^6+2^4+2^0=1 010 001 (2cc)
<span>Sub love01()
Dim a(999) As Integer, Count35 As Integer
For i = 0 To 999
a(i) = Int(Rnd * 1000)
</span>Count35 = Count35 - ((a(i) Mod 3 = 0) or(a(i) Mod<span> 5 = 0))</span><span>
Next
MsgBox Count35
End Sub
т.е. 8 элементов)</span>
Пункт главного меню «Программы» позволяет <span>получить доступ к установленным на компьютере программы.</span>
Вот, на фото
тут надо минимум 20 символов, поэтому я тут фигню пишу