1) Масти четыре, значит log2(4) = 2 бита.
2) Один вариант из 32, log2(32) = 5 битов.
______________________________
Дробное значение же получается.
1024х2 = 2048
1024 * 0.2 = 204.8
итого 2252,8 ....
как-то некорректно выходит
В 32 768 битах сожержится 4 килобайта: 32768 / 8 / 1024=4
//Pascal ABC.NET 3.1 сборка 1219
Var
f:file;
n,i:integer;
r,s:real;
begin
randomize;
readln(n);
assign(f,'OUTPUT.DAT');
rewrite(f);
for i:=1 to n do
begin
r:=random;
if i<>n then write(f,floattostr(r),' ') else write(f,floattostr(r));
s:=s+r;
end;
close(f);
writeln(s);
end.
Пример ввода:
4
Пример вывода:
1.10933282929907
Содержимое <span>OUTPUT.DAT представлено во вложении.</span>