Камера делает фотоснимки 1024 на 768 пикселей. при этом объём файла с изображением не может превышать 220 кбайт, упаковка данных не производится. какое максимальное количество цветов можно использовать в палитре изображения? -цветное изображение было оцифровано и сохранено в виде файла без использования сжатия данных. размер полученного файла – 42 мбайт. затем то же изображение было оцифровано повторно с разрешением в 2 раза меньше и глубиной кодирования цвета увеличили в 4 раза больше по сравнению с первоначальными параметрами. сжатие данных не производилось. укажите размер файла в мбайт, полученного при повторной оцифровке. -какой минимальный объём памяти (в кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 128 на 128 пикселов при условии, что в изображении могут использоваться 2048 различных цветов? в ответе запишите только целое -после преобразования растрового 256-цветного графического файла в 4-цветный формат его размер уменьшился на 24 кбайт. каков был размер исходного файла в кбайтах? в ответе запишите только число, без единиц измерения. -расположите единицы измерения информации в порядке убывания: 500 кбайт, 0,75 мбайт, 0,001 гбайт, 32 байта, 12 бит. выберите один ответ: a. 0,001 гб, 500 кб, 0,75 мб, 32 байта, 12 бит b. 0,75 мб, 0,001 гб, 500 кб, 32 байта, 12 бит c. 0,001 гб, 0,75 мб, 500 кб, 32 байта, 12 бит d. 0,75 мб, 0,001 гб, 500 кб, 12 бит, 32 байта,
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
var k:=ReadInteger('k=');
Writeln('Сумма чисел, кратных ',k,': ',
a.Where(x->x mod k=0).Sum)
end.
Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
a.Where((x,i)->x=i+1).Println
end.
Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16