1. Правительство планеты Вау решило разработать двоичный код и перевести в него важную информацию. Какой разрядности потребуется двоичный
код, если алфавит планеты Вау содержит 32 символа?
2. Алфавит инопланетян состоит из 128 уникальных
символов. Сколько битов будет весить один символ
этого алфавита, если перевести его в двоичный код?
3. Для кодирования каждого символа в алфавите
используется разрядность – 6 битов (i). Сколько
символов в этом закодированном алфавите?
4. Для каждой буквы алфавита используется 3 бита. Сколько
букв в этом алфавите?
5. В сообщении 53 символа, а каждый символ кодируется 4
битами. Каков информационный вес всего сообщения?
6. В сообщении 47 символов, а разрядность двоичного кода каждого
символа – 3 бита. Каков объём информации этого сообщения.
7. Сообщение состоит из одного слова .
Каждая буква кодируется 6 битами. Каков информационный вес этого
сообщения?
8. Информационное сообщение объёмом 130 битов состоит из 65 символов.
Каков информационный вес каждого символа этого сообщения?
9. Информационное сообщение объёмом 420 битов состоит из 60 символов.
Каков информационный вес каждого символа этого сообщения?
10. Мила написала длинное письмо из 5 страниц. На каждой странице 24
строчки. В каждой строке 18 символов. Каждый символ кодируется 7 битами.

Var
a:array[1..5] of integer;
i,Max,c,n,f:integer;
 procedure ho;
 begin
       if a[i]>Max then
        begin
         Max:=a[i];
         c:=i;
        end;
 end;

 begin
   for i:=1 to 5 do
     begin
       a[i]:= random(15)+2;
       write(a[i],' ');
     end;
     Max:=a[1];
     c:=1;
     for i:=1 to 5 do
      ho;
      writeln;
      writeln('Максимум: ',max);
       f:=c;
                    if f=1 then
                    begin
                     max:=a[2];
                     for i:=2 to 5 do
                      ho;
                      writeln('Вторичный максимум: ',max);                                            exit;
                    end;       
                           if f<5 then
                      begin
                          Max:=a[f+1];
                          for i:=f+1 to 5 do
                          ho;
                          n:=max;
                       end;
                    if f>1 then
                      begin
                          Max:=a[1];
                          c:=f;
                          for i:=1 to c-1 do
                          ho;
                          if max>n then
                          writeln('Вторичный максимумì: ',max);
                          if max<n then
                          writeln('Вторичный максимум: ',n); 
                                               end;
   end.

А) не ( A или не В и С ) упрощаем выражение и получаем
not(a) and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=not(a) and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)

б) А и не ( В и или не С) получим такое выражение:
a and (b or not(c))

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or not(c))
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)


в) не ( не А или В и С)  преобразуем:
a and (b or c)

Код на Python:

for a in range(0,2):
    for b in range(0,2):
        for c in range(0,2):
            f=a and (b or c)
            print('A = ',a,'B = ',b,'C = ',c,'F = ',f)