Aigosty 2008-11-07 17:20:00
点我顶贴
收藏
删除
program T385；
var
n,m,i:integer；
sum:int64；
used:array [1..100] of integer；
procedure fen(i,k,t,la:integer)；
var
j:integer；
begin
if i=n then begin sum:=sum+1；exit；end；
for j:=1 to m do
begin
if (used[j]=1) and (j>la) then
begin
used[j]:=0；
if (t>(n-i)) then
begin fen(i,k+1,t-1,j)；
used[j]:=1；
end；
if t>0 then begin used[j]:=0；
fen(i+1,1,t-1,0)；
used[j]:=1；
end；
end；
end；{for j}
end；{pro}
begin
read (n,m)；
for i:=1 to m do used[i]:=1；
n:=n-1；
sum:=0；
fen(1,1,m-1,0)；
writeln(sum)；
end.
..偶的搜索》》大牛们...