字母组合(charcom)字母A，B，C的所有可能的组合（按字典顺序排序）是：A，AB，ABC，AC，B，BC，C每个组合都对应一个字典顺序的序号，如下所示：1A2AB3ABC4AC5B6BC7C找出某个字母组合的字典

Question

字母组合(charcom)
字母A，B，C的所有可能的组合（按字典顺序排序）是：
A， AB，ABC，AC，B，BC，C
每个组合都对应一个字典顺序的序号，如下所示：
1 A
2 AB
3 ABC
4 AC
5 B
6 BC
7 C
找出某个字母组合的字典序号。例如，上例中AC的字典序号是4。
注:假设某个字母组合为X1X2X3…XK,保证X1

Answer 1

var n,i,j,tot:longint;
f:array[0..27] of longint;
a:array[0..26] of char;
c:char;
begin
fillchar(f,sizeof(f),0);
readln(n);
for i:=n downto 1 do
begin
for j:=i+1 to n do f[i]:=f[i]+f[j];
inc(f[i]);
end;
tot:=0; j:=0; a[0]:='@';
while not eoln do
begin
inc(j); read(a[j]);
for i:=ord(a[j-1])-64+1 to ord(a[j])-64-1 do
tot:=tot+f[i];
inc(tot);
end;
writeln(tot);
end.
记得“文件”自己加，你是jsoi函授课程的吧，我也是的，这次题目太难了。还有，最好做一点改动。