1.Определите используемую глубину цвета (в битах на пиксель), если известно, что для кодирования изображения размером 1024 X 768 пикселей потребовалось 1.5 Мбайт (сжатие не производилось).

2.Музыкальный фрагмент был оцифрован и записан в виде файла без использования сжатия данных. Получившийся файл был передан в город А по каналу связи за минуты. Затем тот же музыкальный фрагмент был оцифрован повторно с разрешением в раза ниже и частотой дискретизации в раз выше, чем в первый раз. Сжатие данных не производилось. Полученный файл был передан в город Б за секунд.
Во сколько раз скорость пропускная канала в город Б больше пропускной канала в город А?

3. После преобразования растрового графического файла его объём уменьшился в 1.6 раз.
Сколько цветов было в палитре первоначально, если после преобразования было получено растровое изображение того же разрешения в 32-цветной палитре? (С решениями)

7

Объяснение:

k = 1        dat[1] = 12       12 > 12  (НЕТ)       m = 0

k = 2       dat[2] = 15      15 > 12  (ДА)         m = 1

k = 3       dat[3] = 17       17 > 12  (ДА)         m = 2

k = 4       dat[4] = 15       15 > 12  (ДА)        m = 3

k = 5       dat[5] = 14       14 > 12  (ДА)        m = 4

k = 6       dat[6] = 12       12 > 12  (НЕТ)      m = 4

k = 7       dat[7] = 10       10 > 12  (НЕТ)      m = 4

k = 8       dat[8] = 13       13 > 12  (ДА)        m = 5

k = 9       dat[9] = 14       14 > 12  (ДА)        m = 6

k = 10     dat[10] = 15       15 > 12  (ДА)        m = 7

program p1;

uses crt;

const N = 30;

var a:array[1..N]  of integer;

i,b,k:integer;

begin

 for i:=1 to N do begin                       Вывод рандомных элементов

   a[i]:=random(50);

    write(a[i]:4);

    end;

      writeln;

    readln(b);

    for i:=1 to N do begin

     if b<>a[i] then begin   ( если b не равно эл массива то

          k:=k+1;                   (счётчик)

      write(a[i]:4);                   (вывод))

      end;

       end;

       writeln;

      writeln(k);

      end.