var
a: array [1..30] of Word;
i, c, sum: Word;
begin
Randomize;
for i := 1 to 30 do
a[i] := Random (76);
for i := 1 to 30 do
Write (a[i], ' ');
WriteLn;
for i := 1 to 30 do
if (a[i] >= 10) and (a[i] <= 35) then begin
Inc (c);
sum := sum + a[i];
Write (a[i], ' ')
end;
WriteLn;
WriteLn ('Кол-во чисел из диапазона [10; 35]: ', c);
Write ('Сумма чисел из диапазона [10; 35]: ', sum);
end.
5,25 Мб
Объяснение:
Поскольку разрешение состоит из двух сомножителей - ширины и высоты, то при уменьшении разрешения в 4 раза количество пикселей уменьшится в 4*4=16 раз.
Формула объема файла изображения
V = N*i, где N — общее количество пикселей, а i — глубина цвета (количество бит, выделенное на 1 пиксель)
Составим систему уравнений.
Для первого файла имеем
42=N*i
Для второго файла:
V = N/16 * 2i
Выражаем N в первом уравнении
N=42/i
Подставляем во второе уравнение:
V=42/i :16 *2i
V=42/16i *2i
V=42/8=5,25 Мб
