Алфавит 64 символа
1 символ кодируется по формуле
=> 64=2^6
каждый символ 6 бит.
т.к текст 2000 символов то вес документа
2000х6 бит = 12000 бит
Переведем биты в байты 12000 бит-1500 байт (файл)
1500 байт/50 байт/c = 30 секунд!
а)77
б)31 (расставляешь над цифрами степень и считаешь например 2^6*1=64 также и в (а))
30 * 40 * 50 = 60000 сим
1-н сим - 8 бит (кодировка 8 разряд)
60000 * 8 / 8 = 60000 байт
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8
Var a:string;
begin
readln(a);
writeln(length(a));
end.