i = log ₂ 1/p
вероятность того, что достали красный клубок: Рк = 4/12 = 1/3
количество информации, что достали красный клубок:
i = log ₂ 1/(1/3) = log ₂ 3 бит
вероятность того, что достали черный клубок: Рк = 8/12 = 2/3
количество информации, что достали черный клубок:
i = log ₂ 1/(2/3) = log ₂ (3/2) бит
<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger('>',ReadInteger('N='));
Writeln('Общий размер файлов, байт- ',a.Sum);
Writeln('Средний размер файла, Кбайт- ',a.Average/1024:0:2);
Writeln('Максимальный рзмер имеет файл №',a.IndexMax+1)
end.
<u>Пример</u>
N= 6
> 1300 830 263 1900 172 1500
Общий размер файлов, байт- 5965
Средний размер файла, Кбайт- 0.97
Максимальный рзмер имеет файл №4
20= 180*i(вес одного символа)
i=720/180
(количество информации в сообщении) i=4
(мощность алфавита)N=2^i
N=2^4
N=16
Можно зашифровать слово такт, т.к. первая и последняя буква этого слова одинаковы, так же, как первый и последний значок шифра.
Const n=10;
var
a: array[1..n] of integer;
sa: real;
k: integer;
i: byte;
begin
sa:=0; k:=0;
for i:=1 to n do begin;
read (a[i]);
if a[i] mod 4 =0 then begin
sa:=sa+a[i];
k:=k+1;
end;
end;
sa:=sa/k;
writeln;
writeln ('Среднее значение элементов, кратных четырем, = ',sa);
end.
----------------------------------
Пример:
4 6 8 10 12 16 14 18 20 22
Среднее значение элементов, кратных четырем, = 12
