Sub aaa()
Dim r As Range
Set r = Range("A1:A10")
i = 1
For Each k In r
Cells(i, 2) = Application.WorksheetFunction.CountIf(r, k)
i = i + 1
Next k
End Sub
Для случая размещения чисел массива в ячейках с А1 по А10
По формуле Шеннона количество информации в событии
i=-log(p)/log(2)
и по условию это 6 бит
вероятность угадать одно из N чисел
p=1/N
log(N)/log(2)=6
log(N)=6log(2)
log(N)=log(2^6)
N=2^6=64
это ответ :)
1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.
2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
Пример:
5
s = 6.875000000000000e-01
0.1359Е+7 = <span>0.1359 * 10^7 = 1359000</span>
19.569120Е-5 = 19.569120 * 10^-5 = 0,0001956912