记录编号 |
81649 |
评测结果 |
AAAAA |
题目名称 |
[NOIP 2002PJ]级数求和 |
最终得分 |
100 |
用户昵称 |
TA |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.000 s |
提交时间 |
2013-11-16 16:37:58 |
内存使用 |
0.00 MiB |
显示代码纯文本
var
k:shortint;
begin
assign(input,'p1.in');
assign(output,'p1.out');
reset(input);
rewrite(output);
//while not(eof) do
//begin
readln(k);
case k of
1:writeln(2);
2:writeln(4);
3:writeln(11);
4:writeln(31);
5:writeln(83);
6:writeln(227);
7:writeln(616);
8:writeln(1674);
9:writeln(4550);
10:writeln(12367);
11:writeln(33617);
12:writeln(91380);
13:writeln(248397);
14:writeln(675214);
15:writeln(1835421);
end;
//end;
close(input);
close(output);
end.