Решите ! 1)Какой минимальный объём памяти (целое число Мбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 1024x4096 пикселей при условии, что в изображении могут использоваться 2048 различных цветов? В ответе запишите только целое число, единицу измерения писать не нужно.
2)Какой минимальный объём памяти (целое число Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 567x512 пикселей при условии, что в изображении могут использоваться 128 различных цвета? В ответе запишите только целое число, единицу измерения писать не нужно.
3) Какой минимальный объём памяти (в Кбайт) нужно зарезервировать, чтобы можно было сохранить любое растровое изображение размером 256×256 пикселей при условии, что в изображении могут использоваться 512 различных цветов? В ответе запишите только целое число, единицу измерения писать не нужно.
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9