A B C B&C неB&C Bv не B&C A&(B не B&C)
0 0 0 0 1 1 0
0 0 1 0 1 1 0
0 1 0 0 1 1 0
0 1 1 1 0 1 0
1 0 0 0 1 1 1
1 0 1 0 1 1 1
1 1 0 0 1 1 1
1 1 1 1 0 1 1
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,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение: