Цветное (с палитрой 256 цветов ) растровое графическое изображение имеет размер 45 *20 точек. какой информационный объём имеет изображение ?

N=2^i,  256=2^i,  i=8 бит - глубина цвета
45*20=900 точек
900*8=7200 бит=900 байт

Мы живем в мире, в котором на нас ежедневно обрушивается огромный поток информации. Объем как общих знаний о мире, так и по отдельным направлениям, специальностям возрос за последнее столетие в несколько, а то и в десятки раз. И этот объем постоянно увеличивается, пополняясь все большим количеством новой информации. Часто, не умея быстро сконцентрировать свое внимание, запомнить нужное и отсеять второстепенное, мы просто «дрейфуем» в безбрежном информационном море. Возможно ли управление нашей памятью? Известно, что человек в сжатые сроки может овладеть большим объемом информации. Но в обычном состоянии это сделать очень трудно, как и забыть избирательно какой-то факт. Поэтому развитие памяти, совершенствование процессов запоминания, сохранения и воспроизведения информации являются необходимыми задачами для человека в современном обществе. Без совершенствования собственной памяти современный человек рискует отстать от динамичного развития общества, потеряться в огромном потоке информации.

На сегодняшний день в мире существует много различных методов тренировки внимания и памяти. Не каждому человеку природа подарила совершенную память овладеть необходимой для него информацией. Безусловно, можно применять для сохранения и выборки информации всевозможные бумажные, аудио-, видео- и компьютерные носители. Тем не менее, в условиях постоянно усложняющейся, обступающей со всех сторон человека среды необходимо немалое число данных сохранять в личной памяти. И не просто хранить мертвым грузом, а обладать возможностью эффективно ее использовать.

// PascalABC.NET 3.3, сборка 1549 от 17.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var (i,k):=(0,-1);
  foreach var r in a.Rows do
    if r.Sum mod 3=0 then begin
      k:=i; break
      end
    else i+=1;
  if k>=0 then begin
    Writeln('*** Матрица - результат [',n-1,',',m,'] ***');
    for var r:=k to a.RowCount-2 do
      a.SetRow(r,a.Row(r+1));
    SetLength(a,n-1,m);
    a.Println
    end
  else Writeln('Нет строк с суммой жлементов, кратной трем')
end.

Пример
Количество строк в матрице: 7
Количество столбцов в матрице: 8
*** Исходная матрица [7,8] ***
 -22  75  97  33  10 -58 -50 -11
  -5  24  18 -19  -2  77 -55 -74
  50  38 -94  88 -80 -76  70 -20
 -53  48 -36 -92  70 -76 -14 -36
 -57  30 -76  62 -75 -21   3  93
  57  -7  74 -39  87 -74  65  42
  94 -68  45 -61 -65 -49 -83 -46

*** Матрица - результат [6,8] ***
 -22  75  97  33  10 -58 -50 -11
  50  38 -94  88 -80 -76  70 -20
 -53  48 -36 -92  70 -76 -14 -36
 -57  30 -76  62 -75 -21   3  93
  57  -7  74 -39  87 -74  65  42
  94 -68  45 -61 -65 -49 -83 -46