64 символа - это 6 бит на хранение каждого, т.к.
2^6 = 64
Всего симовлов 100
информационная ёмкость сообщения 6*100 = 600 бит
//программа находит количество всех делителей числа, включая само число и 1
Program n1;
var x,i,k: integer;
begin
readln(x);
k:=0;
for i:=1 to x do if x div i=x/i then k:=k+1;
write('кол-во целых делителей числа ',x,': ',k);
end.
0 Д 00
1 Х 01
2 Р 10
3 О 11
4 В 100
01 11 10 11 100 11 00
Разбиваем на тройки: 011 110 111 001 100 (2) = 36714(8)