Для хранения в информационной системе документы сканируются с разрешением 400 ppi. Методы сжатия изображений не используются. Средний размер отсканированнного документа составляет 2 Мбайт. В целях экономии было решено перейти на разрешение 100 ppi и цветовую схему, содержащую 64 цвета. Средний размер документа, отсканированного с изменёнными параметрами, составляет 96 кбайт. Определите количество цветов в палитре до оптимизации.

Количество цветов N в палитре определяется по формуле N= 2^i, где i - глубина цвета.

i = I/k, где  I - Информационный объем файла,  k - количество пикселей,  

Можем составить такое соотношение:

i₁ / i₂ = (I₁/k₁) / (I₂/k₂)

Разрешение изображения до изменений было 400 пикселей на дюйм (400 х 400), после  изменений: 100 пикселей на дюйм (100 х 100), то есть количество пикселей стало больше в: 400²/100²= 160000/10000= 16 раз. ( k₁=16k₂ )

Глубина цвета после изменений:  i₂=log₂64 = 6 (бит)

i₁ = (I₁/k₁) / (I₂/k₂) * i₂  

i₁ = (I₁ / I₂/16) * i₂        

Глубина цвета до изменений: i₁ = (2048/96/16)*6= 8(бит)

Количество цветов в палитре до изменений: N=2⁸ = 256

ответ: 256 цветов

Объяснение:

Program aaa;
var
Y:array[1..1000,1..1000] of longint;
n,m,i,j,count5,countm9,s5,sm9:longint;
begin
writeln('введите размерность массива');
read(n,m);
writeln('введите массив');
for i:=1 to n do
 for j:=1 to m do
   read(Y[i,j]);
count5:=0;
countm9:=0;
s5:=0;
sm9:=0;
for i:=1 to n do 
for j:=1 to m do
 begin
  if Y[i,j]>5 then
      begin 
       inc(count5);
       s5:=s5+Y[i,j]
      end;
  if Y[i,j]<-9 then 
      begin 
        inc(countm9);
        sm9:=sm9+Y[i,j]
      end;
  end;
writeln('всего элементов больше 5:',count5,' ,сумма этих элементов равна:',s5);
writeln('всего элементов меньше -9:',countm9,' ,сумма этих элементов равна:',sm9)
end.

Вариант 1
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   for i:=1 to length(str) do begin
     if (str[i]='А')or (str[i]='а') then a:=a+1;
     if (str[i]='Б')or (str[i]='б') then B:=b+1;
   end;
   if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.

вариант 3
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   i:=1;
   while i<=length(str) do begin
    if (str[i]='А')or (str[i]='а') then delete(str,i,1);
    i:=i+1;
    end;
   write(str);
      end.