Рисунок размером 2048 на 1024 пикселей сохранили в виде файла размером 1.5 мб , какое кол-во информации было использовано для кодирования цвета 1 пикселя ? каково возможное количество цветов в палитре такого рисунка?
Uses crt; const n = 15; var i, imin, imax, m, min, max, j: integer; a: array[1..n]of integer; begin Writeln('Введите числа в массив'); for i := 1 to n do readln(a[i]); for i := 1 to n do write(a[i], ' '); min := a[1]; max := a[1]; imin := 1; imax := 1; for j := 1 to n do begin if(a[j] > max) then begin max := a[j]; imax := j; end; if(a[j] < min) then begin min := a[j]; imin := j; end; end; writeln(); writeln('индекс минимального элемента ', imin, ' индекс максимального элемента ', imax); m := abs(imin - imax); Writeln(); Writeln('Кол-во элементов между макс. и мин. элементами ', m - 1); end.
Uses crt; const n = 15; var i, imin, imax, m, min, max, j: integer; a: array[1..n]of integer; begin Writeln('Введите числа в массив'); for i := 1 to n do readln(a[i]); for i := 1 to n do write(a[i], ' '); min := a[1]; max := a[1]; imin := 1; imax := 1; for j := 1 to n do begin if(a[j] > max) then begin max := a[j]; imax := j; end; if(a[j] < min) then begin min := a[j]; imin := j; end; end; writeln(); writeln('индекс минимального элемента ', imin, ' индекс максимального элемента ', imax); m := abs(imin - imax); Writeln(); Writeln('Кол-во элементов между макс. и мин. элементами ', m - 1); end.
1.5 Мбайт = 1.5*1024*1024*8=12582912 бит
Количество информации на 1 пиксель:
12582912 бит / 2097152 пикселя = 6 бит
Количество цветов:
2^6=64 цвета