Var
<span> K, s: </span>byte;
<span> A: array [0..4] of </span>byte;
begin
A[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for K := 0 to 4 do
s += a[k];
writeln(s);
<span>end.</span>
5 страниц
84000бит=10500байт
1 символ =1байт
30*70=2100 байт - 1 страница
10500/2100 = 5 страниц
но... если учесть, что перевод строки занимает 2 байта... вычесления будут немного другими.
(70+2)*30=2160 1 страница (вместо 2100
Используем формулу I = log(2)1/p
Вероятность сообщения "Достали красный клубок" = 4/(4+8) = 4/12 = 1/3
I = log(2)[1/(1/3)] = log(2)3 ≈ 1,585
Вероятность сообщения "Достали черный клубок" = 8/(4+8) = 8/12 = 2/3
I = log(2)[1/(2/3)] = log(2)[3/2] ≈ 0,585