Известны за и количество найденных по ним страниц некоторого сегмента

Дано:
Разрешающая сканера 600 х 600 dpi.
Размер 10см x 15см.
Глубина цвета - 3 байта.

Найти:
Каков информационный объём этого файла?

Решение:
Вначале переводим глубину цвета из байт в биты
3 байта * 8бит в байте = 24 бит

Вычисляем разрешение сканера в 1 дюйме квадрат
600*600 = 360 000 пикселей в 1 дюйм^2

Переводим размер картинки из квадратных сантиметров в квадратные дюймы.
10см = 3.937дюйма
15см = 5,906дюйма
10*15=150 см^2 = 3,937 * 5,906 = 23,25 дюйм^2

Вычисляем количество пикселей в изображении
23,25 дюйм^2 * 360 000 пикселей в 1 дюйм^2 = 8 370 000 пикселей

Информационный объём вычисляем по формуле
количество пикселей * глубину цвета =
8 370 000 пикселей * 24 бит = 200 880 000 бит.

Переводим в байты делением на 8.
25 110 000 байт
или же делим на 1024*1024 чтобы получить количество мегабайт
23,95 Мегабайт

ответ:
Информационный объём отсканированного изображения =
25 110 000 байт или 23,95 Мегабайт

const

 L = 1;

 H = 5;

var

 b: array [L..H, L..H] of Integer;

 i, j, imax, jmax, bmax: Integer;

begin

 Randomize;

 for i := L to H do begin

   WriteLn;

   for j := L to H do begin

     b [i, j] := Random (100);

     Write (b [i, j] :4);

   end;

 end;

 imax := 1;

 jmax := 1;

 for i := L to H do begin

   for j := L to H do begin

     if b [i, j] > b [imax, jmax] then begin

       imax := i;

       jmax := j;

     end;

   end;

 end;

 WriteLn;

 Writeln ('Максимальный элемент: b [', imax, ', ', jmax, '] = ', b [imax, jmax]);

 ReadLn;

end.