1. 5 бит = 2^5 = 32 цвета
2. 16 цветов - 4 бита, т.к. 2^4=16
3. R-красный, G-зеленый, B-синий. Красного и зеленого под завязку, синего нет. Смешаем красный и зеленый, получим желтый.
4. Узнаем объем одного пикселя. 705кб/(1504*640) = (705*1024*8 бит)/(94*16*5*128) = (705*2^13)/(470*2^11) = (705*4)/470 = 6 бит.
6 бит - это 2^6=64 цвета.
5. 512 цветов - это 2^9, то есть на один пиксель приходится 9 бит. (340*560*9)/(1024*8) = (340*70*9)/1024 = 210 Кб.
алг
нач
цел a, b, c, d, e
вывод "введите a"; ввод a
вывод "введите b"; ввод b
вывод "введите c"; ввод c
e := div((a+b+c),3)
вывод e
кон
А)паскаль программа для создавания программ)0
<span>1.
1024 байт = 1 Кбайт < 1 Мбайт > 1024 байт < 1 Гбайт
2.
2^6 = 64
3.
</span><span> 1) 3 Кбита = 3000 бит = 375 байт
2) </span>3,48046875<span> Кбайт = 3564 байт = 28512 бит
3) 1,5 Гбайт = 1536 Мбайт =</span>1572864 Кбайт =1610612736 байт =<span>12884901888</span> бит
Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.