Если вероятность события p, то по формуле Шеннона в сообщении об этом событии
i = -log(p)/log(2) бит информации
5 = -log(p)/log(2)
-5log(2) = log(p)
log(2^-5) = log(p)
1/2^5 = p
p=1/32
А вероятность угадать одно из N чисел равна 1/N
Значит, N = 32
var
S: real;
i, k, l: integer;
begin
S := 1;
for i := 1 to 12 do
begin
k := 1; l := 1;
while (k <= i) do
begin
l := l * 3;
k := k + 1;
end;
S := S + 1 / l;
end;
writeln(S);
end.
-------------
function len(s: integer): byte;
var
i, l: byte;
begin
l := s;
while (l > 0) do
begin
l := l div 10;
inc(i);
end;
len := i;
end;
var
i: integer;
begin
i := 3;
repeat
i := i * 3;
until (len(i) = 6);
writeln(i);
end.
---------------
var
D, x: real;
y: integer;
begin
readln(x);
if (x > 0) then
for y := 1 to 5 do
D := D + (y + cos(x))
else
begin
D := 1;
while (y <= 10) do
begin
D := D * (y - x);
inc(y);
end;
end;
writeln('D = ', D);
end.
V= 56 Кбит/с=56*2^10 бит/с =7*2^13 бит/с
F= 5 Мбайт = 5*2^23 бит
t =F/v = 5*2^23 : (7*2^13) =5*2^10 / 7 =731,43c=12,2 минуты
424=110101000(2)=650(8)=1A8(16)
85=1010101(2)=125(8)=55(16)
333=101001101(2)=515(8)=14D(16)
97=1100001(2)=141(8)=61(16)
1024=10000000000(2)=2000(8)=400(16)
Var a:string;
i,n:integer;
begin
write('Введите слово ');
readln(a);
n:=length(a);
writeln('Введите номер буквы ');
readln(i);
delete(a,i,1);
writeln(a);
readln;
<span>end.</span>