Автоматическая фотокамера производит растровые изображения размером 256 на 512 пикселей. При этом объём файла с изображением не может превышать 24 Кбайт, упаковка данных не производится. Какое максимальное количество цветов можно использовать в палитре?

Количество цветов в палитре определим из формулы:  

N=2^i, где i - глубина цвета (бит)  

i определим из формулы: i = I/k, где I - объем файла (бит), k - количество пикселей  

i = 24*(1024*8)/256*512 = 1,5  

значение i должно быть целым числом, поэтому округляем до 1 ( до 2 не можем, иначе объем изображения превысит 24 Кбайт).

Тогда количество цветов в палитре: N = 2^1 = 2

Объяснение:

Const nx=20;var i,j,n:integer; D:array[1..nx,1..nx] of integer;pG,pP:double;m:boolean;begin
write('Введите размер массива n');Readln(n);pG:=1;pP:=1;
for i:=1 to n do begin
for j:=1 to n do begin
Readln(D[i,j]);//D[i,j]:= random(35)-15;end;end;writeln;
for i:=1 to n do beginfor j:=1 to n do begin
write(D[i,j]:4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin
if i < n-j+1 then begin write(D[i,j]:4); pP:= pP * D[i,j];end else write(' ':4);end;writeln;end;writeln;
for i:=1 to n do begin
for j:=1 to n do begin 
if i <j then begin write(D[i,j]:4); pG:= pG * D[i,j];end else
write(' ':4);end;writeln;end;writeln;
writeln('произведение элементов массива над главной диагональю  =',pG);writeln('произведение элементов массива над побочной диагональю  =',pP);if pG = pP then m:= true
else m:= false;writeln('Высказывание =', m);end.

Var
  a: Array[1..100,1..100] of Integer;
 n,p1,p2, i,j: Integer; 
r:boolean;
BEGIN
writeln('n=');
readln(n);

Writeln('vvedite massiv:');
For i:=1 to n do
begin
  For j:=1 to n do
 begin 
read(a[i,j]); 
 end; 
 Writeln; 
  end; 
  r:=true; 
p1:=1; 
p2:=1; 
for i:=1 to n do 
for j:= 1 to n do
  if i + j < n + 1 then
p1:=p1*a[i,j]; 
for i:=1 to n do
 for j:= 1 to n do 
if i<j then
 p2:=p2*a[i,j]; 
 if p1=p2 then
 r:=true
 else 
r:=false; 
writeln('В данной матрице произведение элементов, стоящих над побочной диагональю, равно произведению элементов, стоящих над главной диагональю=',r);
 readln;
 end.