pascal 关于进制

L位的数组即可
1、清零for i:=0 to l do a[i]:=0；a[1]:=1;
2、循环
while a[0]=0 do
begin
打印;（大于等于10的用A开始表示 10-A 11-B ……）
i:=l;
while a[i]=k-1 do i:=i-1; {k进制每一位最大是k-1}
a[i]:=a[i]+1;
for j:=i+1 to l do a[i]:=0;
end;

那不就是K^(L-1)～K^L-1吗？ L=1的时候要特殊考虑0

全排嘛