Var
i,j,n:longint;
a:array[-1..100,-1..100] of int64; Begin
readln(n);
a[0,0]:=1;
for i:=0 to n do
for j:=0 to n+1-i do
begin
if (i>0) and (j=0) then a[i,j]:=a[i-1,j+1];
if (i>0) and (j>0) then a[i,j]:=a[i-1,j+1]+a[i,j-1];
if (i=0) and (j>0) then a[i,j]:=a[i,j-1];
end;
writeln(a[n,0]); end.不知对题目？ |
