基佬 2016-10-11 06:03:50
点我顶贴
收藏
删除
这是“栈”的代码：
var
n:1..18;
ans:longint;
procedure gc(l,m,a:longint);
begin
if l<>0 then
gc(l-1,m+1,a);
if m<>0 then
gc(l,m-1,a+1);
if a=n then
inc(ans);
end;
begin
readln(n);
ans:=0;
gc(n,0,0);
writeln(ans);
end.