Pascal題。求程序。 字母組合(charcom) 字母A，B，C的所有可能的組合（按字典順序排

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;