比赛代码 - COGS

比赛	20111110	评测结果	WAAAAAAAAA
题目名称	整理牙刷	最终得分	90
用户昵称	wk_noi	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2011-11-10 11:23:02

显示代码纯文本

Program put(input,output);
Const
 maxn=100000;
Var
 n,i,j:longint;
 a:array[1..maxn]of longint;
Begin
 assign(input,'put.in');
 assign(output,'put.out');
 reset(input);
 rewrite(output);
 readln(n);
 a[1]:=0;
 a[2]:=1;
 for i:=3 to n do
  begin
   a[i]:=(a[i-1]+a[i-2])*(i-1);
   a[i]:=a[i]mod 1206;
  end;
 writeln(a[n]);
 close(input);
 close(output);
End.