Для кодирования одного значка необходимо log(2)13 ≈ 4 бита.Объём сообщения <span>длиной в 666 символов</span>: 666*4 бит = 666*4/8 байт = 333 байта.
var x, S: longint; t:text;
begin
assign(t,'input.txt');
reset(t);
S:=0;
while not Eof(t) do
begin
read(t,x);
S:=S+x;
end;
close(t);
assign (t,'output.txt');
rewrite(t);
write(t,'Вот сумма числел из файла input.txt: ', S);
close(t);
End.
200 = 11001000
543 = 1000011111
950 = 1110110110
1025 = 10000000001
1.1)0,3341...2)45,32. 3)5570. 4)741,5. 2.1)0.2B8...2)2B.C7. 3)19,4. 4)12,8