<span>Один символ при алфавитном подходе будет нести 5 бит информации (2 в Х степени = 32) . Общий объём информации 39x5 = 195 бит</span>
Все сложна я тебе так скажу думай сам тут если додуматься не так сложна
Progran BiFi;
Const n=10;
Var a:array[1..n] of real;
i:integer;
Begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do writeln(a[i]);
readln;
for i:=1 to n do begin a[i]:=a[i]*2;
writeln(a[i]);
end;
readln;
end.
Чтобы сумма переменных была равна нулю (т.е. была ложна), нужно чтобы каждый элемент был равен нулю.
X1=0
X2=1
X3=0
X4=1
X5=1
X6=1
X7=1
Следовательно существует всего лишь один набор чисел.