lla-leo 2017-02-15 03:08:44
点我顶贴
收藏
删除
由 lla-leo 在 2017-02-15 19:01:28 提交,有效耗时0ms,如果您发现任何评测错误,请点击这里提交
测试点1 Accepted / 0ms / 260kB
测试点2 Accepted / 0ms / 260kB
测试点3 Accepted / 0ms / 260kB
测试点4 Accepted / 0ms / 260kB
测试点5 Accepted / 0ms / 260kB
测试点6 Accepted / 0ms / 260kB
测试点7 Accepted / 0ms / 260kB
测试点8 Accepted / 0ms / 260kB
测试点9 Accepted / 0ms / 260kB
测试点10 Accepted / 0ms / 260kB
var
i,j,n:longint;
b:array[0..200] of longint;
begin
readln(n);
b[0]:=1;
for i:=1 to n do
begin
for j:=1 to i do
begin
b[i]:=b[i-j]*b[j-1]+b[i];
end;
end;
writeln(b[n]);
end.