1. Определим количество точек по сторонам изображения. dpi - это количество точек на одном дюйме, а дюйм приблизительно равен 2.54 см. Тогда изображение по одной из сторон будет содержать 43.18/2.54×600 = 10200 точек, а по второй - 43.18/2.54×1200 = 20400 точек. 2. Определим количество байт, которое необходимо для хранения информации о цвете каждой точки. 24 бита = 24/8 = 3 байта. 3. Определим информационный объем файла 10200×20400×3 = 624240000 байт. Это длинная запись величина, поэтому переведем её в более крупные единицы 624240000 байт = 624240000/1024 Кбайт = 609609.375 К байт = 609609.375/1024 Мбайт ≈ 595.32 Мбайт = 595.32/1024 Гбайт ≈ 0.58 Гбайт
Var a,k1,k2,s:integer; begin writeln('Вводите целые числа. Конец ввода - 0'); k1:=0; k2:=0; s:=0; readln(a); while a<>0 do begin if (a mod 2 = 0)and(a<0) then k1:=k1+1; if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end; readln(a); end; writeln('количество четных отрицательных чисел = ',k1); if k2>0 then writeln('среднее арифметическое нечётных чисел = ',s/k2) else writeln('в последовательности нет нечётных чисел'); end.
Пример: Вводите целые числа. Конец ввода - 0 18 -45 10 -62 70 0 количество четных отрицательных чисел = 1 среднее арифметическое нечётных чисел = -45
dpi - это количество точек на одном дюйме, а дюйм приблизительно равен 2.54 см.
Тогда изображение по одной из сторон будет содержать 43.18/2.54×600 = 10200 точек, а по второй - 43.18/2.54×1200 = 20400 точек.
2. Определим количество байт, которое необходимо для хранения информации о цвете каждой точки. 24 бита = 24/8 = 3 байта.
3. Определим информационный объем файла
10200×20400×3 = 624240000 байт. Это длинная запись величина, поэтому переведем её в более крупные единицы
624240000 байт = 624240000/1024 Кбайт = 609609.375 К байт = 609609.375/1024 Мбайт ≈ 595.32 Мбайт = 595.32/1024 Гбайт ≈ 0.58 Гбайт
Выбирайте любой из ответов - Кбайт, Мбайт, Гбайт.
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
begin
if (a mod 2 = 0)and(a<0) then k1:=k1+1;
if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
readln(a);
end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
then writeln('среднее арифметическое нечётных чисел = ',s/k2)
else writeln('в последовательности нет нечётных чисел');
end.
Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45