На диске будет занято 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.
Объяснение:
92 * 3 + 92 * 10 + 92 * 2 = 276 + 920 + 184 = 1380 секунд
ответ: 1380 секунд