Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.
<span> 1011110
</span><span> 1100111
---------------
11000101
Арифметика двоичной системы счисления нужно выполнять при помощи ТАБЛИЦЫ сложения и умножения. Можно ее найти в интернете.
</span>
V = K * I, где:
V - объем.
K - размер изображения.
I - количество бит на символ.
N = 2^i, где:
N - палитра.
Дано:
K = 64*64.
N = 128 цветов.
Найти: V(кбайт).
N = 2^i.
128 = 2^i.
I = 7 бит.
V = K * I = (64 * 64 * 7)/2^13 = (2^6 * 2^6 * 7)/2^13 = (2^12 * 7)/2^13 = 7/2 = 3,5 кбайт.
Ответ: 3,5 кбайт.
2.5 Кбайт= 2.5*1024=2560 бит ( вес текста)
2560:16=160 символов
<span>74 : 2 =
37 (остаток 0)</span>
37 : 2 = 18
(остаток 1)
18 : 2 = 9 (остаток
0)
9 : 2 = 4 (остаток
1)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
В ответе
записываем остатки с конца подсчетов
Ответ :
1001010
<span>
74(10)
= 1001010(2) </span>
23 : 2 = 11
(остаток 1)
11 : 2 = 5 (остаток
1)
5 : 2 = 2 (остаток
1)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ : 10111
<span>23(10) =
10111(2)</span>
17 : 2 = 8 (остатк
1)
8 : 2 = 4 (остаток
0)
4 : 2 = 2 (остаток
0)
2 : 2 = 1 (остаток
0)
1 : 2 = 0 (остаток
1)
Ответ: 10001
<span>17(10) =
10001(2)</span>
2 : 2 = 1 (остаток
0)
1 : 2 = 0
(остаток 1)
Ответ: 10
<span>2<span>(10) </span>= 10(2) </span>
