作业帮字母排序pascal字母排序(passwd.pas)给定N个不同的小写字母和一个长度L (3
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/27 19:35:27
字母排序pascal字母排序(passwd.pas)给定N个不同的小写字母和一个长度L (3
字母排序pascal
字母排序(passwd.pas)
给定N个不同的小写字母和一个长度L (3
字母排序pascal字母排序(passwd.pas)给定N个不同的小写字母和一个长度L (3
label 1;
var
a:array[1..26]of char;
b:array[1..15]of longint;
n,i,j,l,c,ans,y,f:longint;
s:string;
begin
readln(l,c);
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then continue
else
begin
inc(j);
a[j]:=s[i];
end;
for i:=1 to c-1 do
for j:=i+1 to c do
if a[i]>a[j] then
begin
s[1]:=a[i];
a[i]:=a[j];
a[j]:=s[1];
end;
for i:=1 to l do
b[i]:=i;
while (ans0) and (f>1) and (y+f=l) then
begin
inc(ans);
for i:=1 to l do
write(a[b[i]]);
writeln;
end;
1:
j:=l;
while b[j]>=c do
begin
b[j]:=1;
dec(j);
end;
inc(b[j]);
for i:=2 to l do
if b[i]