В основном просто перемножить
Вес файла = вес одного символа * кол-во символов в файле
1 38 * 2 = 76 байт
2 64 * 48 * 4 * 8 = 98304 бита = 12288 байт = 12 кбайт
(кол-во симв) * вес символа
3
k - кол - во символов, тогда
2048 + 8 * k = 16 * k
объем первоначального равен 8k
из уравнения следует что 8k = 2048 бит = 256 байт
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadlnString('>').ToWords.Count,' слов(а)')
end.
<u>Пример</u>
> А роза упала на лапу Азора
6 слов(а)
А вопрос какой?
можно сказать слово
весточка
1) 1001010101 (2)= 1125(8) = 255(16)
2) 417
3) 1023
4) 196
5) 11000101
6) 10110100
7) 1111