记录编号 33342 评测结果 AAAAAAAAAA
题目名称 整理牙刷 最终得分 100
用户昵称 GravatarDes. 是否通过 通过
代码语言 Pascal 运行时间 0.004 s
提交时间 2011-11-10 13:12:58 内存使用 0.50 MiB
显示代码纯文本
program put;
var f:array[1..100000]of longint;
    t,k,m,n,i,j,ans:longint;
begin
assign(input,'put.in');
reset(input);
assign(output,'put.out');
rewrite(output);
readln(n);
f[1]:=0;
f[2]:=1;
f[3]:=2;
for t:=4 to n do
  f[t]:=((t-1)*(f[t-1]+f[t-2]))mod 1206;
if f[n]=0 then
  writeln('No Solution!')
else writeln(f[n]);
close(output);
end.