Sub MyMid()
a = Range("B3:B14")
n = UBound(a, 1)
s = 0
For i = 1 To n
s = s + a(i, 1)
Next i
Range("E3").Value = s / n
End Sub
<em><u>Можно и короче записать:</u></em>
Sub MyMid2()
Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))
End Sub
1*1024*1024*8 = 8388608 бит - объём видеопамяти.
По формуле,
Iп=x*y*i
8388608=1920*1080*x
x=8388608:1920:1080
x = ~4,05 = 4 бита - глубина цвета, а значит,
2^4 = 16 различных цветов - максимально можно использовать.
Бег<span>-бог-бок-бак-мак-маг-</span>шаг
море-морс-торс-тора-тура-туша-суша
наверное, так
Скатерть
Остров
Сумка
Товар
Автобус
Винтерлятор