№1. объем сообщения, содержащего 4096 символов, составил 1 мбайт. каков размер алфавита, с которого записано сообщение?
№2. у племени "чичевоков" в алфавите 24 буквы и 8 цифр. знаков препинания и арифметических знаков нет. какое минимальное количество бит им необходимо для кодирования всех символов? учтите, что слова надо отделять друг от друга!
№3. группа школьников пришла в бассейн, в котором 4 дорожки для плавания. тренер сообщил, что группа будет плавать на дорожке номер 3. сколько информации получили школьники из этого сообщения?
№4. в нотной тетради песня записана на 10 страницах. для записи песни было использовано 7 нот. на каждой странице 25 строк по 20 нот в строке. вычислить объем информации в тетради.

// Pascal ABC.NET
var

 ans1, ans2, ans3: Integer;

procedure rec1(k: Integer);

begin

 if k < 1 then

   exit;

 if k = 1 then begin

   Inc(ans1);

   exit;

 end;

 if k mod 2 = 0 then

   rec1(k div 2);

 rec1(k-1);

end;

procedure rec2(k: Integer; visited: Boolean);

begin

 if k < 1 then

   exit;

 if (k = 1) and visited then begin

   Inc(ans2);

   exit;

 end;

 if k mod 2 = 0 then

   rec2(k div 2, visited or (k = 15));

 rec2(k-1, visited or (k = 15));

end;

procedure rec3(k: Integer);

begin

 if (k < 1) or (k = 12) then

   exit;

 if k = 1 then begin

   Inc(ans3);

   exit;

 end;

 if k mod 2 = 0 then

   rec3(k div 2);

 rec3(k-1);

end;

begin

 ans1 := 0;

 ans2 := 0;

 ans3 := 0;

 rec1(20);

 rec2(20, false);

 rec3(20);

 WriteLn('ответ на подзадачу 1: ', ans1);

 WriteLn('ответ на подзадачу 2: ', ans2);

 WriteLn('ответ на подзадачу 3: ', ans3);

end.