Объем графических файлов 1. Рисунок размером 256 на 240 пикселей занимает в памяти 45 Кбайт (без учёта сжатия). Найдите максимально возможное количество цветов в палитре изображения.
2. Рисунок размером 80 на 192 пикселей закодирован с палитрой 256 цветов. Сколько килобайт занимает в памяти рисунок без учёта сжатия?
3. Рисунок размером 1536 на 64 пикселей занимает в памяти 24 Кбайт (без учёта сжатия). Найдите максимально возможное количество цветов в палитре.
4. Рисунок размером 512 на 64 пикселей закодирован с палитрой 2 цвета. Сколько килобайт занимает в памяти рисунок без учёта сжатия?
5. Рисунок размером 288 на 256 пикселей занимает в памяти 18 Кбайт (без учёта сжатия). Найдите максимально возможное количество цветов в палитре.
n, sum, max: integer;
begin
sum:=0;
write('Введите натуральное число n: ');
readln(n);
a := new integer[n];
write('Введите действительные числа: ');
for var i:=0 to a.Length-1 do
read(a[i] );
write('Сумма равна: ');
for var i:=0 to a.Length-1 do
sum:=sum+a[i];
writeln(sum);
write('Максимальный элемент равен: ');
max := a[0];
for var i:=0 to a.Length-1 do
if a[i]>max then
begin
max := a[i];
end;
writeln(max);
write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
sum:=sum+max;
write(sum);
end.