var
a:array[1..10] of integer;
s:array[1..10] of boolean;
i,n,m:integer;
procedure pailie(i:integer);
var j,k:integer;
s[j]:=true;
for j:=1 to n do
if s[j] then
begin
s[j]:=false;
a[i]:=j;
if i=m then
begin
for k:=1 to n-1 do
begin
write(a[k],' ');
writeln(a[n]);
end;
end
else pailie(i+1);
end;
begin
assign(input,'pailie.in');
assign(output,'pailie.out')
reset(input);
rewrite(output);
readln(n,m);
fillchar(a,sizeof(a),0);
pailie(1);
close (input);
clode(output);
end.

题目在上面，代码求改

题目被吞了

what..

求N个元素中取出M个的排列，每个元素只能用一次。（M，N<10）

输入
3 2

. 秘籍。老师憋了半天语重心长告诉我：”你每到一个帖子就粘贴这句话，十五天就到了11级”...我彻底恍然大悟！吧主再也不用担心我的经验了。我是路过的，我什么都不知道，不过我已经精秃了，假如你每天签到拿4经验，18级300000/4=75000天，如果从1岁开始签到，那100年=36500天，你差不多要活200年保持每天签到（谁知道200年后还有没有签到这玩意），如果你每天再水4经验，时间减半，但考虑现实，你不可能再活100年，取50年吧，你就要每天水16经验，可能你是个勤快的人，每天水32经验，那就需要25年！！！再如果你是个大水怪，每天水64经验，那就只要12.5年！！！还如果你个心急的人，每天水128经验，你只要6.25年！！！！假如你已经急不可耐了，每天水256经验，那你碉堡了，只要3.125年！！！当然，你会觉得3年还是太远了，每天你闲的蛋疼，忙忙碌碌的水512经验，碉堡了，你只需要1.5625年，只比1年半多一点！！！什么！！你还不满意，那你觉得你可能一天水1024经验吗，可能吗！！可能吗！！！据说回复100字或者一百字以上可以得到11~30经验，真的很棒。。。。那么，按照队形，点击复制，把我的话复制一片，拿经验妥妥的秘籍。老师憋了半天语重心长告诉我：”你每到一个帖子就粘贴这句话，十五天就到了11级”

var
--a:array[0..9] of byte;
--n,m:byte;
procedure sub(s:byte);
--var
--i,j:byte;
--begin
----for i:=a[s-1]+1 to n-(m-s) do
------begin
--------a[s]:=i;
--------if s=m then
----------begin
------------for j:=1 to m do write(a[j]);
------------writeln;
----------end
--------else sub(s+1);
------end;
--end;
begin
--readln(n,m);
--sub(1);
end.