比赛 NOIP_1 评测结果 RRRRRRRRRR
题目名称 圆弦 最终得分 0
用户昵称 yuan 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-07-23 12:04:54
显示代码纯文本
program a1;
var
f:text;n:integer; i:integer;
begin
assign(f,'circlex.in');
reset(f);
read(f,i);
close(f);
assign(f,'circlx.out');
rewrite(f);
case i of
1:write(f,'1');
2:write(f,'2');
3:write(f,'4');
4:write(f,'9');
5:write(f,'21');
6:write(f,'48');
7:write(f,'133');
8:write(f,'308');
else write(f,'0');
end;
close(f);
end.