Объём сообщения, содержащего 20 символов, составил 100 бит. каков размер алфавита, с омощью которого записано и ясно 7 класс

I=100бит           i=k*i k=20                 i=i/k n-?                   i=100/20=5 бит                         n=2^i                         n=2^5=64 ответ: 64

var

mas : array[1..15] of integer;

i: integer;

 

begin

 

for i: =1 to 15 do

begin

  mas[i] : = random(40)-20;

  if (mas[i] mod 2 = 1) then mas[i]: =mas[i]/2;

  if (mas[i] mod 2 = 0) then mas[i]: =mas[i]*3;

end;

 

end;

Program grapho; uses crt ,graphabc; var xc ,yc ,r1 ,r2 ,rc ,ro ,n ,i ,x ,y : integer;     a : real; begin repeat write ( 'количество отверстий от 3 до 7 n=' ); read (n ); until n in [3..7 ]; clrscr; hidecursor; xc : =windowwidth div 2; yc : =windowheight div 2; r1 : = 50; r2 : = 150; rc : = 100; ro : = 30; a : =2 *pi /n; circle (xc ,yc ,r2 ); circle (xc ,yc ,r1 );   for i : =1 to n do   begin   x : =xc +round (rc * cos (a *i ) );   y : =yc -round (rc * sin (a *i ) );   circle (x ,y ,ro );   end; end.