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 Кб.
//PascalABC.NET v3.3 1633
var arr: array [1..6, 1..6] of integer;
begin
for var i:=1 to 6 do
for var j:=1 to 6 do
arr[i, j]:=random(-49, 50);
writeln('Исходный массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
var num:=0;
for var i:=1 to 6 do
if arr[i, 2] < 0 then num += 1;
writeln('Количество отрицательных элементов второго столбца: '+num);
for var i:=1 to 6 do
for var j:=1 to 6 do
if arr[i, j] > 0 then arr[i, j]:=-49;
writeln('Новый массив: ');
for var i:=1 to 6 do
arr[i].PrintLn(', ');
end.
Берешь сначала h, затем h-36%, и так делаешь, пока h не будет = 0, затем складываешь все результаты и получаешь ответ
Изображение прикреплено. Формула написана наверху.
1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт