Р(4)=15/30=1/2
i = log по основанию 2 1/p(4) В результате будет log по основанию 2 1(числитель) / 1/2 (в знаменателе) = 1 бит
Объективность - <span>суждение, не зависящее от субъективных вкусов и предпочтений.</span><span />
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Transform(t -> t.IsEven ? t + 1 : t * 2);
a.Println
end.
Открыл портфель, сложил тетради и учебники, закрыл портфель