Одним битом можно закодировать два цвета, обычно это черный и белый. Черный 0 - белый 1. У нас четыре цвета. Берем два бита и кодируем:
00 - черный
10 - темносерый
11 - белый
01- светлосерый
Итого двух бит достаточно
Const n=5;
var a,b:array[1..n] of integer;
i,sa,sb:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(10)-5;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
begin
b[i]:=random(10)-5;
write(b[i]:3);
end;
writeln;
sa:=0; sb:=0;
for i:=1 to n do
begin sa:=sa+a[i]; sb:=sb+b[i]; end;
writeln('sa=',sa,' sb=',sb,' P=',sa*sb);
<span>end.</span>
1 кб = 1000б => 2^8 =256 б и получаем 0,256 кб
Нет недостатков, одни плюсы. лучший из лучших
Канал связи — <em>система технических средств и среда распространения сигналов для односторонней передачи данных от источника к получателю.</em>