Sub abc()
Dim i As Integer, s As Integer
s = 0
For i = -5 To 10
s = s + i
Next i
MsgBox s
End Sub
Объем информации для записи номеров участников:
для 1го - 1 бит x 1 = 1
для 2-3го - 2 бита x 2 = 4
для 4-7го - 3 бита x 4 = 12
для 8-15го - 4 бита x 8 = 32
для 16-31го - 5 бит x 16 = 80
для 32-63го - 6 бит x 32 = 192
для 64-120 - 7 бит x 64 = 448
для записи результатов по 8 бит на каждого. 8 x 120 = 960
итого, 1729 бит
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB