По какой формуле можно найти мощность алфавита

N=2^i n это мощность алфавита i это информационный вес одного символа

Например так program name_1; var name1, name2, name3, probel, dot: string; number: integer; begin name1 : = 'ivanov_ivan_xvanovic'; probel : = '_'; dot : = '.'; number : = pos(probel, name1); writeln(number); writeln(name1); {delete(name1, number+2, 60); } name2: =name1; name3: =name1; {вырезаем имя} delete(name1, number, 60); delete(name2, 1, number); {сформировали 1й инициал} delete(name2, 2, 60); delete(name3, 1, number); {формируем 2й инициал} number : = pos(probel, name3); delete(name3, 1, number); delete(name3, 2, 60); writeln('ваши инициалы: ',name1,' ', name2, dot, ' ', name3, dot); readln(); end. поясню, у меня с кирилицей иногда чудит, поэтому перешел на латиницу, ну и поменял букву в отчестве, чтоб быть уверенным, что вырезан именно 2й инициал, а не повторно 1й, они ж одинаковые были. при отладке пробел в строке заменял подчеркиванием, чтобы четко видеть, что режет программа.

{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. сравнивается какое из них больше и выводится в порядке возрастания} uses crt; var a,c,b: integer; begin     clrscr;       repeat             writeln('input 3-x znachoe');             readln(b);         until (b> =100)and(b< =999); a: =b div 100+(b div 10)mod 10; c: =(b div 10)mod 10+b mod 10;       if a< c then           writeln(a,c) else           writeln(c,a); readkey; end.