решить задачу : Автоматическая камера производит растровые изображения размером 640х1280 пикселей. Для - id1648753820201230 от Danika38 30.12.2020 20:16

Question

Информатика: решить задачу : Автоматическая камера производит растровые изображения размером 640х1280 пикселей. Для кодирования цвета каждого пикселя используется одинаковое количество бит, коды пикселей записываются в файл один за другим без промежутков. Объем файла с одним изображением не может превышать 500 Кбайт без учета размера заголовка файла. Какое максимальное количество цветов можно использовать в палитре?

Danika38 · Accepted Answer

Program a1;
var a,b: array [1..10] of integer;
n,i,k,sum,c: integer;
begin
Randomize;
For i:=1 to 10 do
begin
  a[i]:=random(100);
     write(a[i]:3);
   end;
Readln (n);
For i:=1 to 10 do
begin
   k:=a[i];
   while k>0 do
          begin
   sum:=sum+(k mod 10);
    k:=k div 10;
    end;
  f (n=sum) then
   begin
  inc(c);
        b[c]:=a[i];
   end;
end;
for i:=1 to c do
write(b[i]:2);
end.

MOGZ ответил