8(2^3) символов => каждый символ весит 3 бита
3б*120 = 360 Бит
<span>7 и 8 задания. в 7 не вижу значок на 1 схеме </span>
В начало строки
в конец строки
на слово вправо
на слово влево
на экранную страницу вверх
на экранную страницу вниз
на страницу вверх
на страницу вниз
в начало текста
в конец текста
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