// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=8; var a:=new real[n,n]; var k:=1; for var i:=0 to n-1 do for var j:=0 to n-1 do begin if i.IsEven then a[i,n-1-j]:=k else a[i,j]:=k; k+=1 end; a.Println(3,0) end.
1. 6 бит
2. 180 бит
Объяснение:
N = 2^i, где
N - мощность алфавита (количество символов в алфавите)
i - информационный вес одного символа (число бит, используемых для записи одного символа)
I = K * i, где
I - это информационный объём текстового сообщения
K - количество символов в сообщении
i - информационный вес одного символа (число бит, используемых для записи одного символа)
1.
Дано:
N = 50 символов
K = 30 символов
Найти:
i
50 <= 2^i
i = 6 бит
2.
Дано:
N = 50 символов
K = 30 символов
Найти:
I
50 <= 2^i
i = 6 бит
I = 30 * 6 = 180 бит