Сообщение о том, что ваш друг живет на 10 этаже содержит 4 бита информации. сколько этажей в доме?

Cобытия равновероятны, поэтому  номера этажей не повторяются. n = 2^4  = 16 этажей.

Var   a, n, sum1, sum2, k: longint; begin   a : = 100000;   while a < > 999999 do   begin     sum1 : = 0; sum2 : = 0;     n : = a div 1000;     sum1 : =  n div 100 + (n div 10) mod 10 + n mod 10;     n : = a mod 1000;     sum2 : = n div 10 + (n div 100) mod 10 + n mod 10;     if sum1 = sum2 then     begin       writeln(a, ' - "счастливый" билет');       k : = k + 1;     end;     a : = a + 1;   end;   writeln('всего ', k, ' таких билетов');   readln end.

1) а в   в(отр с  черточкой)   в(отр)va     f       0   0   1                                   1         0     0   1   0                                   0         0     1   0   1                                   1         1     1   1   0                                   1         1  2)   abc avb cvb   f       0 0 0   0       0     0       0 0 1   0       1     0       0 1 0   1       1     1         1 0 0   1       0     0       0 1 1   1       1     1       1 0 1   1       1     1       1 1 0   1         1       1            1 1 1   1       1     1