Всего возможных вариантов N=16.
Подставим это в формулу
Таким образом, 4 бит информации несет сообщение
//PascalABC.Net 3.1 сборка 1200
uses System;
var
n: longint;
begin
var s := new List<longint>();
repeat
Readln(n);
if n <> 0 then s.Add(n);
until n = 0;
Println(s);
var av := s.Average;
Println(s.Where(x -> x > av));
end.
N=2^i
N - мощность алфавита, i - количество знаков в двоичном коде
30*70*5=10500 всего символов
2²=4
значит 2 бит занимает один символ
10500*2=<em>21000 бит </em>