比赛 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.