作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/25 20:09:47
PASCAL 组合
输入
输入的第一行包含两个整数为 N 和 K 以空格隔开$(1
program Project1;
uses strings,math;
type arr=array[1..30000]of string;
var n,k,lim,i,j,p:integer;target:string;strs:arr;last:string;
procedure quicksort(var b:arr; s,t:integer);
var i,j:integer; x,t1:string;
begin
i:=s;j:=t;x:=b[i];
repeat
while (b[j]>=x) and (j>i) do j:=j-1;
if j>i then begin t1:=b[i]; b[i]:=b[j];b[j]:=t1;end;
while (b[i]