Известно, что в ящике лежат 10 чёрных шаров, 5 белых, 4 жёлтых и 1 красный. какое количество информации несут сообщения о том, что из ящика случайным образом достали чёрный шар, белый шар, жёлтый шар, красный шар?

1) 1бит т, к надо 10 делить на 20 потом 5 на 20 потом 4 на 20 и 1 на 20 и это все сложить
2)ответ 16 из формулы n=2в степениI

Количество информации можно определить как -log2(p), где p - вероятность данного события. Оно измеряется в битах.
Также можно использовать равносильное выражение log2(1/p)
Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1.
Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит,
если белый, то log2(1/0,2) = log2(5) = 2,3219 бит
если жёлтый, то столько же 2,3219 бит
если красный, то log2(1/0,1) = log2(10) = 3,3219 бит

Чем меньше вероятность события, тем большее количество информации мы получаем, когда это событие наступает.

a,b:integer; 
d:string[45]; 
begin 
SetConsoleOutputCP(1251); 
writeln('Введите число в диапазоне от 1 дo 100'); 
write('a='); 
readln(a); 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''; 
1: d:='I'; 
2: d:='II'; 
3: d:='III'; 
4: d:='IV'; 
5: d:='V'; 
6: d:='VI'; 
7: d:='VII'; 
8: d:='VIII'; 
9: d:='IX'; 
end; 
b:=a mod 10; 
a:=a div 10; 
case b of 
0: d:=''+d; 
1: d:='X'+d; 
2: d:='XX'+d; 
3: d:='XXX'+d; 
4: d:='XL'+d; 
5: d:='L'+d; 
6: d:='LX'+d; 
7: d:='LXX'+d; 
8: d:='LXXX'+d; 
9: d:='XC'+d; 
end; 
b:=a mod 10; 
a:= a div 10; 
case b of 
0: d:=''+d; 
1: d:='C'+d; 
end; 
writeln('B Римской системе счисления ' ,d); 
readln; 
end. 

Program project1;
uses
crt,math;
var  s:real;  i,j,f:real;  a:integer;
begin 
writeln('vvedite 1 chislo ');readln(i);
  writeln('vvedite 2 chislo ');readln(j); 
 writeln('vvedite 3 chislo ');readln(f); 
 s:=i; 
 if j<s then s:=j; 
 if f<s then s:=f; 
 if s<0 then 
 begin  
  if i<0 then inc(a);  
  if j<0 then inc(a);  
  if f<0 then inc(a);  
  writeln('kolichestvo otricatelnix ',a:2);
  end 
 else  
begin  
  if i>0 then i:=i*-1;
  if j>0 then j:=i*-1;
  if f>0 then f:=i*-1; 
 end; 
 writeln('min chislo ',s:2:0); 
 readln;
end.