Открой молоко - 3 картинка
налей молоко - 4
возьми миску 5
позови кота 1
стоп
//Немного приведения типов на сон грядущий.
а)d(real)+1(integer)=>real
б)a(integer)*d(real)=>real
в)a(integer)-2(integer)=>integer
г)15 mod 5(всегда возвращает integer)=>integer
д)a(integer)+b(integer)+c(integer)/n(real)=>real(т.к. дробь)
е)b(integer)/c(integer)*100(integer)=>real(т.к. дробь)
ж)(a(integer)+b(integer))*2(integer)-d(real)=>real
<span>так как неопределенность знаний уменьшается в 8 раз, следовательно, она была равна 8, т.е. существовало 8 равновероятных событий. Сообщение о том, что произошло одно из них, несет 3 бита информации (8 = 2^3).</span><span>Ответ: 3 бита.</span>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := Arr(7, -5, -2, 6, 8);
var b := Arr(0, -1, -1, 0, 0);
var c := a.Zip(b, (p, q)-> p + q).ToArray;
c.Println
end.
1. V= 5*3*4=60 бит
2. V= 20*15*3=900 бит * 2 = 1800 бит