當前位置:成語大全網 - 新華字典 - Pascal題。求程序。 字母組合(charcom) 字母A,B,C的所有可能的組合(按字典順序排

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

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;