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

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

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.