| 比赛 | NOIP_1 | 评测结果 | AWWWWWWWWA |
|---|---|---|---|
| 题目名称 | 圆弦 | 最终得分 | 20 |
| 用户昵称 | gragon | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2010-07-23 12:13:27 | ||
program circlex;
var g:text;
a:array[1..1000]of int64;
t,k,j,i,m,n:longint;
begin
assign(g,'circlex.in');
reset(g);
readln(g,n);
close(g);
a[1]:=1;
a[2]:=2;
a[3]:=4;
a[4]:=9;
a[5]:=21;
a[6]:=48;
a[7]:=133;
a[8]:=308;
if n>8 then
for t:=9 to n do
begin
randomize;
a[t]:=random(12344);
end;
assign(g,'circlex.out');
rewrite(g);
writeln(g,a[n]);
close(g);
end.