При угадование целого числа в некотором диапазоне было получено 7 бит информации. сколько чисел содержит этот диапазон?

Дано                       решение i=7                         n=2^i найти n                   n=128 диапазон чисел от 1 до 128

//pascalabc.net 3.2 сборка 1318 var   senotexist: set of char=['0','1','2','3','4','5','6','7','8','9'];   arrnotexist: array of char;   count,i: integer;   num: string; begin   readln(num);   for i: =1 to length(num) do     senotexist-=[num[i]];   foreach var x in senotexist do     begin       inc(count);       setlength(arrnotexist,count);       arrnotexist[count-1]: =x;     end;   sort(arrnotexist);   writeln(count);   arrnotexist.print(' '); end. пример ввода: 81233214554 пример вывода: 4 0 6 7 9

чтобы получить цифры числа

var digit,num: integer;

while num< > 0 do

begin

        digit : = num mod 10;

        num : = num div 10;

        {обработать цифру}

end;

 

вот к примеру для первых двух

 

while num< > 0 do

begin

        digit : = num mod 10;

        num : = num div 10;

        sum: =sum+digit

end;

 

while num< > 0 do

begin

        digit : = num mod 10;

        num : = num div 10

end;

digit - первая цифра