R(0) = 0
R(1) = 0
R(2) = 1
R(3) = R(2) + R(0) + R(2) = 1 + 0 + 1 = 2
R(4) = R(3) + R(1) = 2 + 0 = 2
R(5) = R(4) + R(2) + R(3) = 2 + 1 + 2 = 5
R(6) = R(5) + R(3) = 5 + 2 = 7
R(7) = R(6) + R(4) + R(4) = 7 + 2 + 2 = 11
R(8) = R(7) + R(5) = 11 + 5 = 16
R(9) = R(8) + R(6) + R(5) = 16 + 7 + 5 = 28
<span>R(10) = R(9) + R(7) = 28 + 11 = 39</span>
Плотоядных 256/4=64
Информационная ёмкость в сообщении о находке плотоядного по формуле Шеннона
i=-log(p)/log(2) = -log(1/4)/log(2) = log(4)/log(2)=2
Сообщение о находке вампира весит в информационном смысле в тра раза больше, или 6 бит. Снова подставим в формулу Шеннона, для определения вероятности находки вампира
6 = -log(p)/log(2)
-6log(2)=log(p)
log(2^-6)=log(p)
p = 1/2^6 = 1/64
А всего вампиров было
256*p = 256/64 = 4
Травоядные - это остаток
256-64-4 = 188
program raf105;
var
a,i,n,c: integer;
x,x2: boolean;
begin
write('Введите количество чисел: ');
readln(n);
writeln('Вводите ',n,' чисел по очереди');
readln(a);
if a >= 0
then x2:= True
else x2:= False;
for i:=2 to n do
begin
readln(a);
if a >= 0
then x:= True
else x:= False;
if x <> x2
then c:= c+1;
x2:= x;
end;
writeln('Количество изменений знака: ',c);
end.
<h3><u>PascalABC 3.4.2</u></h3>