Program Massiv;
Uses Crt;
var i,j:integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(101)-50;
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:3);
end;
writeln;
end;
readkey;
end.
№ 1. Какой минимальный объем памяти (в битах) необходим для хранения одной точки изображения, в котором 16 различных цветов? 4 бита
№ 2. Какой минимальный объем памяти (в битах) необходим для хранения одной точки изображения, в котором 2 различных цвета? 1 бит
№ 3. Какой минимальный объем памяти (в битах) необходим для хранения одной точки изображения, в котором 256 различных цветов? 8 бит
№ 4. Скольких различных цветов могут быть пиксели неупакованного растрового изображения, имеющего размер 128 х 4096 пикселей и занимающего на диске 448 килобайт? 128
№ 5. Скольких различных цветов могут быть пиксели неупакованного растрового изображения, имеющего размер 128 х 512 пикселей и занимающего на диске 24 килобайта? 3 цвета - RGB красный, зеленый, голубой
Переведем Кбиты/с в кБ/с (килобайты в секунду, далее просто кБ/с), для этого разделим скорость на 8.
800 Кбит/с : 8 = 100 кБ/с.
Далее 160 Мб переведем в кБ, 160 * 1024 = 163840 кБ.
Рассчитаем время, для этого 163840 кБ : 100 кБ/с = 1638,4 секунд. Переведем в минуты, если нужно: 27 минут - приблизительно.
<em>Ответ приблизительный: 27 минут или 1638,4 секунд</em>
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
А) произведение отрицательных элементов с четными номерами