I = m*log2(N),
где m - количество символов(букв) в сообщении, N - мощность алфавита, т.е. количество символов (букв) в нем.
1) оценка количества информации в первом символе сообщения
N1=2, так как могут быть только 2 разных символа алфавита племени мульти: А или О, m1=1
I1=m1*log2(N1)=1*log2(2)=1 бит;
2) оценка количества информации в остальных 8-1=7 символах сообщения
N2=32, так как могут быть 32 разных символа всего алфавита племени мульти, m2=7
I2=m2*log2(N2)=7*log2(32)=35 бит;
3) оценка количества символов информации в сообщении
I=I1+I2=1+35=36 бит
var a, b, N, w:integer;
beigin
read(a, b, N);
while (N<>0) do
begin
N:= N-1;
w= random(a, b);
write(w);
end;
end.