Сколько времени потребуется для ввода в память компьютера текста на 92 страницах с сканера и программы ABBYY FineReader, если известно, что на сканирование одной страницы уходит 3 секунды, на смену страницы в сканере — 10 секунд, на распознавание страницы — 2 секунды?

92 * 3 + 92 * 10 + 92 * 2 = 276 + 920 + 184 = 1380 секунд

ответ: 1380 секунд

На диске будет занято 36 971 928 КБ памяти.

Объяснение:

число точек в изображении:

1877 * 3330 = 6250410 точек

считаем чистый размер файла одного изображения:

6250410 * 24 = 150009840 бит

переводим в байты:

150009840 / 8 = 18751230 байт

переводим в килобайты:

18751230 / 1024 ≈ 18311,75 КБ

считаем, сколько кластеров займёт такой файл:

18311,75 / 8 ≈ 2288,97 кластеров

округляем (всегда с избытком, вверх, т.к. кластер считается занятым, даже если занята лишь его малая часть), и получаем что файл одного изображения займёт 2289 кластеров

считаем, сколько кластеров займут все 2019 файлов:

2289 * 2019 = 4621491 кластеров

считаем, сколько это в килобайтах:

4621491 * 8 = 36971928 КБ

P.S. Именно поэтому файлы изображений обычно хранят сжатыми (чтобы не получилось, что всего то 2 тысячи картинок заняли десятки гигабайт).

var

 n, Num, i, j, t: integer;  

 Count: array[1..12] of integer;  

 Names: array[1..12] of integer;

begin

 for i := 1 to 12 do  

 begin

   Count[i] := 0;  

   Names[i] := i;  

 end;  

 ReadLn(N); { Считываем количество запросов}  

 for i := 1 to N do  

 begin

   ReadLn(t); {считали очередной запрос}  

   Count[t] := Count[t] + 1;  

 end;  

 {Сортируем массивы Names и Count в порядке убывания значений массива Count}  

 for i := 12 downto 2 do  

   for j := 2 to i do  

     if Count[j - 1] < Count[j] then  

     begin

       t := Count[j];

       Count[j] := Count[j - 1];

       Count[j - 1] := t;

       t := Names[j];

       Names[j] := Names[j - 1];

       Names[j - 1] := t;

     end;  

 for i := 12 downto 1 do  

   if Count[i] > 0 then  

     WriteLn(Names[i], ' ', Count[i]);  

end.

Объяснение: