比赛 | 20121016 | 评测结果 | AAAAAAWWWW |
---|---|---|---|
题目名称 | 跑步 | 最终得分 | 60 |
用户昵称 | Rotide | 运行时间 | 0.014 s |
代码语言 | Pascal | 内存使用 | 1.12 MiB |
提交时间 | 2012-10-16 21:15:59 | ||
var f: array[1..500, 1..500] of longint; n, i, j: longint; begin assign(input,'runa.in'); reset(input); assign(output,'runa.out'); rewrite(output); read(n); for i:=0 to n do f[0][i]:=1; for i:=1 to n do for j:=1 to n do begin f[i,j]:=f[i,j-1]; if i-j>=0 then f[i,j]:=f[i,j]+f[i-j,j-1]; end; write(f[n, n] - 1); read(n); close(input); close(output); end.