Без рандома:
program p5_4;
var
P,S,S1:real; i,k:integer;
b:array[1..20] of integer;
z:array[1..10] of integer;
begin
writeln(' z: ');
for k:=1 to 10 do
begin
Readln(z[k]);
write(z[k]:4);
end;
writeln;
writeln(' b: ');
for i:=1 to 20 do
begin
Readln(b[i]);
write(b[i]:4);
end;
P:=1;
S1:=0;
for i:=1 to 20 do
S1:=2*(S1+cos(sqr(b[i])));
for k:=1 to 10 do
P:=P*(z[k]);
S:=S1+P;
writeln(' S=',S:2:5);
<span>end.</span>
10
префиксное свойство - один код не может быть префиксом другого, значит (в данной задаче) не может начинаться с 00, 01, 11.
значит первые две цифры = 10. других нет, так как минимальный надо, а вероятности не заданы.
1) 7 - 3 степень 2 1 символ - 2 бита 11 символов - 22 бита
2) 64 - 6 степень 2 1 символ - 6 битов
3) 16 - 4 степень 2 1 символ - 4 бита 512 символов - 512*4=2048 битов