Ответ на первую
var
i,m,b:integer;
a:array[1..15] of integer;
begin
for i:=1 to 15 do
a[i]:=random(100)+1;
repeat
for i:=1 to 14 do
if a[i]<a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
inc(m);
until m=14;
for i:=1 to 15 do
if a[i] mod 2 = 0 then
write(a[i],' ');
end.
1)
dopustim svet 1 bit. pixel=80x50
pixel=4000
razmer=4000x svet(1)
razmer=4000
2)
svetnaya paltira=2^5
znachit svet=5
pixel=80x50
pixel=4000
razmer=4000x5
razmer=20000
3)
всего 86.
8 не любят, значит любят 78.
54 - квесты, 78-54=24.
62 - симуляторы, 78-62=16.
78-(24+16)=38 с одинаковым удовольствием играют и в квесты, и в симуляторы
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 31 шт
i = 8 бит
I - ?
Решение:
I = K * i = 31 * 8 бит = 248.0 бит