Число бит информации определяется как log 2 (N/N') где N - число возможных вариантов ДО получения информации, а N' - после.
Т.е. нам надо посчитать сколько существует комбинаций из 11 подбрасываний всего (2^11 = 2048) и сколько таких, где 4 орла идут подряд (таких очевидно 8 - 11110000000, 01111000000, 00111100000, 00011110000, 00001111000, 00000111100, 00000011110, 00000001111).
Имеем log 2 (2048 / 8) = log 2 (2^11 / 2^3) = log 2 (2^8) = 8 бит
Ответ 8 бит
Uses crt;
var s1,s2: string;
x,y:integer;
function pos(s1,s2:string):integer;
begin
for x:=length(s1) downto 1 do
for y:=length(s2)downto 1 do
if (s1[x]=s2[y]) then pos:=x;
end;
begin
write('s1: '); readln(s1);
write('s2: '); readln(s2);
writeln(pos(s1,s2));
<span>end.</span>
Var a:array[1..100,1..100] of integer;
m,n,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=j*5;
for i:=1 to m do begin writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
<span>end.
Как то так.</span>
1 обложка( еще называют "переплёт")
2 форзац
3 титульный лист
4 оглавление
5 вспомогательные разделы
6 остальной текст книги
1 буква или символ 8 бит
20 знаков * 8=160 бит