По информатике алфавит племени пульти содержит 8 символов. каков информационный вес символа этого алфавита? напишите не только ответ а и решение.

8символов = 2^3 т.е. 3 бита на символ

Var n1,n2,a,b: integer;       d: byte; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do     begin     write('n1 = '); readln(n1);     write('n2 = '); readln(n2);     for n2: = n1 to n2 do             begin             a: =n2;             b: =0;             while a> 0 do                   begin                   b: =b*10+a mod 10;                   a: =a div 10;                   end;             if b = n2 then write(n2,' ')             end;     writeln;     writeln('1 - продолжить, 0 - выйти');     readln(d);     end; end. правда, я не уверен, что она правильно работает на любых числах, поэтому ещё одна версия: var     n1,n2,d: integer;     a,b: string; begin writeln('1 - ввести n1 и n2, 0 - выход'); readln(d); while d = 1 do     begin     write('n1 = '); readln(n1);     write('n2 = '); readln(n2);     for n2: = n1 to n2 do             begin             a: =inttostr(n2);             b: ='';             for d: = length(a) downto 1 do                     b: =b+a[d];             if a=b then write(n2,' ')             end;     writeln;     writeln('1 - продолжить, 0 - выйти');     readln(d);     end; end.