28 букв + 10 цифр = 38 знаков используются в номерах. Один такой знак занимает минимально 6 бит (2^5=32 < 38 < 64=2^6).
Один номер занимает 5 знаков * 6 бит/знак = 30 бит. Но хранятся номера целым количеством байтов: 24 бит (3 байта) < 30 бит < 32 (4 байта), то есть каждый номер хранится как 4 байта.
соответственно для записи 70 номеров потребуется 70 * 4 = 280 байт.
Найдем кол-во символов в сообщении:
K=32*40*8=10240
Найдем информационный объем одного символа:
10 кб переводим в биты: 10*1024*8=81920, тогда информационный объем одного символа (i) = 81920/10240 = 8, тогда кол-во символов в алфавите (N):
N=2^i (2 в степени i) = 2^8 = 256.
Ответ: в алфавите 256 символов
100*512*8 бит = 409 600 бит = 51 200 байт = 50 кб
Sub z()
Range(Cells(1, 1), Cells(100, 100)).Clear
n1=5
n2=3
n3=4
k = 1
A = InitMatrix(n1, k, 1)
k = k + n1 + 2
B = InitMatrix(n2, k, 1)
k = k + n2 + 2
C = InitMatrix(n3, k, 1)
End Sub
Function InitMatrix(n, cx, cy)
ReDim A(n, n)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
A(i, j) = Rnd * 200 - 100
Cells(cx + i, cy + j) = A(i, j)
Next
Next
Cells(cx, cy + n + 1) = "PositiveAverage ="
Cells(cx, cy + n + 2) = PositiveAverage(A)
InitMatrix = A
End Function
Function PositiveAverage(A)
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
If A(i, j) > 0 Then
s = s + A(i, j)
k = k + 1
End If
Next
Next
PositiveAverage = s / k
End Function