На хранение целого числа отвели 12 бит. сколько чисел можно закодировать таким образом?

Количество комбинаций (чисел) можно посчитать так  2^12 = 4096

Var   i, n, k: integer;   s, c: string; begin   writeln('введите текст');   readln(s);   n : = length(s);   k : = 0;   i : = n;   repeat       c : = copy(s, i, 1);       if (c = 'к') or (c = 'к') then k : = k + 1;       i : = i - 1;   until c = ' ';   writeln('в последнем слове буква "k" встречается ', k, ' раз(а)') end. результат прогона тестового примера в pascalabc.net: введите текст кукушка кукует, а петух - кукарекает! в последнем слове буква "k" встречается 3 раз(а)

Var   commands: array [1..2] of byte;   buf: string; begin   writeln('формат ввода: (№ комманды)(пробел)(очки)');   writeln('например:     1 3');   writeln('№ о');   repeat     readln(buf);     if buf = '0' then break;     commands[integer.parse(buf[1])] += byte.parse(buf[3]);   until false;       writeln(string.format('команда {0} победила во счётом {1} очк.', commands[1] > commands[2] ? 1 : 2, max(commands[1], ; end.