1) определите, какое количество бит информации содержится в сообщении, если его объем состовляет 0,0025 мбайт
2)опредклить, какое количество кбайт информации содержится в сообщении если его объем составляет 8196 бит
3) определите мощность алфавита с которого передано сообщение содержащее 2680 символов если информационный объем сообщения состовляет 670 байт
​

Дано Разрешающая сканера 600 х 600 dpi. Размер 10см х 15см. Глубина Цвета 3 байта. Найти: Каков информационный объем этого файла? Решение Вначале переводим глубину цвета из байт в биты 3 байта 8биТв байте 24 бит вычисляем разрешение сканера в 1 дюйме квадрат 600600 360 000 пикселей в 1 дюйм Переводим размер картинки из квадратов Сантиметров в Квадратные дюймы 10см 3.937дюйма 15см 5,906 дюйма 1015-150 смл2-3,937 5 906 23,25 дюйм Вычисляем в разрезе 23,25 дюймл2 360 000 пикселей в 1 дюйм 2E 8 370 000 пикселей Информационный объем вычисляем по формуле КОЛИЧЕСТВО ПИКСелей глубину цвета 8 370 000 пикселей 24 биTE 200 880 000 бит. lереводим в бай Ты делением На 8 25 110 000 байт или же делим на 10241024 чтобы получить количество мегабайт 23,95 мегабайт ответ: Информационный объем отсканированного изображения или 23,95 Мегабайт

program raf105;

var

 a,i,j,s: integer;

 f,st: string;

 inA,inB: boolean;

begin

 readln(a);

 readln(f);

 i:=1;

 while i < length(f)-1 do

   begin

     st:= f[i] + f[i+1];

     inA:= False;

     inB:= False;

     for j:=1 to length(st)-1 do

       begin

         if st[j] = 'a' then inA:= True;

         if st[j] = 'b' then inB:= True;

       end;

     if (not inA) or (not inB) then

       if st = 'bb' then

         f[i+1]:= 'a'

       else

         f[i+1]:= 'b';

       s:= s+1;

     i+= 2;

   end;

 writeln(s);

 for i:=1 to length(f)-1 do

   write(f[i],' ');

end.

PascalABC