PASCAL 组合字串输入输入的第一行包含两个整数为 N 和 K 以空格隔开$(1

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/22 02:10:50
PASCAL组合字串输入输入的第一行包含两个整数为N和K以空格隔开$(1PASCAL组合字串输入输入的第一行包含两个整数为N和K以空格隔开$(1PASCAL组合字串输入输入的第一行包含两个整数为N和K

PASCAL 组合字串输入输入的第一行包含两个整数为 N 和 K 以空格隔开$(1
PASCAL 组合字串
输入
输入的第一行包含两个整数为 N 和 K 以空格隔开$(1

PASCAL 组合字串输入输入的第一行包含两个整数为 N 和 K 以空格隔开$(1
其实我不是很明白题目的意思
var n,k,i,j,sum:longint;
b:array[1..26] of boolean;
temp:char;
s:string;
procedure f(s0:string);
var i:longint;
begin
if sum=k then exit;
if length(s0)=4 then begin
writeln(s0);
inc(sum);
exit;
end;
for i:=1 to n do begin
if b[i] then continue;
b[i]:=true;
f(s0+s[i]);
b[i]:=false;
end;
end;
begin
readln(n,k);
readln(s);
for i:=1 to length(s) do
for j:=i+1 to length(s) do if s[i]>s[j] then begin
temp:=s[i]; s[i]:=s[j]; s[j]:=temp;
end;
f('');
end.