Program fantscrin;
const n = 10;
Var a: array [1..n] of integer;
b: array [1..n] of integer;
i,j:integer;
Begin
j:=0;
for i:=1 to n do
a[i]:=random(20);
write(a[i], ' ');
if (i mod 2 <> 0) then
begin
j:=j+1;
b[j]:=a[i];
end;
writeln('');
a[i]:=0;
for i:=1 to j do
a[i]:=b[i];
writeln(j);
End.
1. картинка
2. 32
Объяснение:
2.
V = х * у * i, где
V - информационный объём изображения (размер файла, содержащего изображение)
х - количество точек (пикселей) по горизонтали
у - количество точек (пикселей) по вертикали
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
^ - знак степени
Дано:
х = 128
у = 128
V = 10 Кбайт = 81 920 бит
Найти:
N
V = х * у * i
i = V / (х * у)
i = 81 920 / (128 *128) = 5 бит
N = 2⁵ = 32 цвета
1 байт = 8 бит
1 Кбайт = 1024 байт
Program fantscrin;
const n = 10;
Var a: array [1..n] of integer;
b: array [1..n] of integer;
i,j:integer;
Begin
j:=0;
for i:=1 to n do
a[i]:=random(20);
for i:=1 to n do
write(a[i], ' ');
for i:=1 to n do
if (i mod 2 <> 0) then
begin
j:=j+1;
b[j]:=a[i];
end;
writeln('');
for i:=1 to n do
a[i]:=0;
for i:=1 to j do
a[i]:=b[i];
for i:=1 to j do
write(a[i], ' ');
writeln('');
writeln(j);
End.
1. картинка
2. 32
Объяснение:
2.
V = х * у * i, где
V - информационный объём изображения (размер файла, содержащего изображение)
х - количество точек (пикселей) по горизонтали
у - количество точек (пикселей) по вертикали
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i, где
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
^ - знак степени
Дано:
х = 128
у = 128
V = 10 Кбайт = 81 920 бит
Найти:
N
V = х * у * i
i = V / (х * у)
i = 81 920 / (128 *128) = 5 бит
N = 2⁵ = 32 цвета
1 байт = 8 бит
1 Кбайт = 1024 байт