Постройти таблицу истинности для выражения
(¬x ∧ y ∧ z) ∨ (¬x ∧ y ∧ ¬z) ∨ (¬x ∧ ¬y ∧ ¬z).

Число бит информации определяется как log 2 (N/N') где N - число возможных вариантов ДО получения информации, а N' - после.
Надо посчитать сколько существует комбинаций из 18 подбрасываний всего

(2^18 = 262144) и сколько таких, где 3 орла идут подряд

(таких  16 -

111000000000000000,

011100000000000000,

001110000000000000,

000111000000000000,

000011100000000000,

000001110000000000,

000000111000000000,

000000011100000000,

000000001110000000,

000000000111000000,

000000000011100000,

000000000001110000,

000000000000111000,

000000000000011100,

000000000000001110,

000000000000000111

Имеем log 2 (262144 / 16) = log 2 (2^18 / 2^4) = log 2 (2^14) = 14 бит

ответ 14 бит

Вот примерно так

Объяснение:

var

 s, s1: string;

 i, k: integer;

begin

 write('Введите строку: ');

 readln(s);

 //s := 'мама папа дед лес поп';

 writeln(s);

 s := s + ' ';

 i := 0;

 k := 1;

 while i < Length(s) do

 begin

   inc(i);

   if not (s[i] in [' ', ',', '-']) then  

     s1 := s1 + s[i]

      else  

   begin

     if s1[1] = s1[Length(s1)] then  

     begin

       //    writeln(s1);

       delete(s, k, Length(s1) + 1);

       //    writeln(s);

     end;  

     inc(k, Length(s1) + 1);

     s1 := '';

     //writeln(k);

   end;

 end;

 writeln(s);

end.