Сколько различных символов можно закодировать 11-ти разрядными битовыми комбинациями?

Ответ 2 в степени 11 штук. 

1)  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program program1; var s,subs: string; c: char; isonenumber: boolean; p: byte; n,err: integer; begin writeln('‚введите фразу'); readln(s); c: =s[1]; isonenumber: =false; p: =pos(' ',s); while p< > 0 do   begin   if p=1 then   begin   s: =copy(s,2,length(s));   p: =pos(' ',s);   continue;   end;   subs: =copy(s,1,p-1);   s: =copy(s,p+1,length(s));   p: =pos(' ',s);   val(subs,n,err);   if err< > 0 then continue;   if (n=0) or (n> 9) then continue;   isonenumber: =true;   break;   end; if isonenumber then writeln('‚ есть числа, сосотоящие из одной цифры') else writeln('‚нет чисел, состоящих из одной цифры'); end.

Если паскаль, во первых для генерации рандомного числа используется метод random(x), но он генерирует число от 1 до x, и чтоб он генерировал от какого то определенного, надо из x вычесть от какого числа генерировать, а потом к сгенерированному прибавить его random(x - n) + n. где x - до какого числа, а n - от какого.  для нахождения максимального числа мы будем использовать метод max, который принимает два аргумента (какие числа надо сравнить), допустим max(5,10) вернет 10, max(-1, -5) вернет -1. так же есть min - нахождение минимального. а теперь сам код: begin var a : = random(30) + 10;   var b : = random(30) + 10; writeln('a: ' + a);   writeln('b: ' + b); writeln(max(a,b));   end. если не сложно нажми "" ; )