Сколько бит информации несет каждая из арабских чисел?

Цифр, может быть? для кодирования нужно 4 бита

Program project1; var m: array [0..14] of integer; i: integer; function ispositive(a: integer): boolean; begin   result: =(a> -1); end; procedure work; var min, max, count: integer; begin   count: =0;   min: =m[0];   max: =0;   for i: =0 to 14 do begin       if ispositive(m[i]) then begin           inc(count);           if m[i]> max then max: =m[i];           if m[i]< min then min: =m[i];       end;   end;   writeln('max: ', max);   writeln('min: ', min);   writeln('count: ', count); end; begin   for i: =0 to 14 do begin       write('n: ');       readln(m[i]);   end;   work;   readln; end.

Таких систем исчисления всего две.   основание а = 9 и основание а =367, но в системе с основанием 367 проблематично записывать числа (символов не хватит). если число 3306(10) в системе исчисления с основанием а заканчивается цифрой 3, то тогда число 3303 делится на основание системы а. отсюда алгоритм поиска.   находим все делители числа 3303. 3303 = 3*1101 = 3*3*367.   число 367 - простое. поэтому основаниями системы исчисления  могут быть только 3, 9, 367.   основание =3 не подходит, так как по условию число должно заканчиваться на 3   -> основание больше  3.   остаются 9, 367.