Мы знаем мощность алфавита (N) - 16 символов.
Нам необходимо узнать вес одного символа.
Формула нахождения мощности алфавита:
N = , где i - вес одного символа.
Подставим в формулу существующее значение:
16 =
Значит, i - 4 бита, ведь = 16.
Так, 1 символ текста кодируется 4 битами.
80 × 256 = 20480 - количество символов во всём тексте.
20480 символов = 20480 × 4 = 81920 бит
1 Килобайт = 1024 байт, а 1024 байт = 1024 × 8 = 8192 бит
81920 ÷ 8192 = 10 Килобайт
ответ: для сохранения данного текста потребуется 10 Килобайт памяти.
Sub Zadanie()
ReDim C(5, 6)
k_pos = 0
mini = LBound(C, 1)
minj = LBound(C, 2)
For i = LBound(C, 1) To UBound(C, 1)
For j = LBound(C, 2) To UBound(C, 2)
C(i, j) = Round(Rnd * 10)
if C(i, j) > 0 then k_pos = k_pos + 1
if C(i, j) < C(mini, minj) then
mini = i
minj = j
end if
Next
Next
MsgBox "min C(" & mini & ", " & minj & ")=" & C(mini, minj) & vbNewLine & "c>0: " & k_pos
End Sub
Call Zadanie()