2 мегобита !но компьютер тупет и плохо работает
var
n : integer;
S : decimal;
function fac(n : integer) : decimal;
begin
result := 1;
for var i := 1 to n do result := result * i;
end;
begin
write('введите n = ');
readln(n);
for var i := 1 to n do S := S+fac(i);
writeln('S=', S);
end.
бит б 1
байт Б 8 бит
килобит кбит (кб) 1 000 бит
килобайт КБайт (KБ) 1024 байта
мегабит мбит (мб) 1 000 килобит
мегабайт МБайт (МБ) 1024 килобайта
гигабит гбит (гб) 1 000 мегабит
гигабайт ГБайт (ГБ) 1024 мегабайта
Дано: ИНФОРМАТИКА, i-?
Решение:
<span> i=log2(1/P)
</span>И: i=log2(1/0,062)=4 бит
Н: i=log2(1/0.053)=4,24 бит
Ф: i=log2(1/0.002)=8,97 бит
О: i=log2(1/0.090)=3,47 бит
Р: i=log2(1/0.040)=4,64 бит
М: i=log2(1/0.026)=5,27 бит
А: i=log2(1/0.062)=4,01 бит
Т: i=log2(1/0.053)=4,24 бит
К: i=log2(1/0.028)=5,16
i=4+4,24+8,97+3,47+4,64+5,27+4,01+4,24+4+5,16+4,01=52,01 бит
Ответ: 52,01 бит
88 в десятичной = 1011000 в двоичной