比赛代码 - COGS

比赛	20101119	评测结果	EEEEEEEEEE
题目名称	01进制数	最终得分	0
用户昵称	wo shi 刘畅	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-11-19 08:21:08

显示代码纯文本

var
  n,i:longint;
  f:array[0..10000000]of longint;

begin
  assign(input,'binary.in'); reset(input);
  assign(output,'binary.out'); rewrite(output);
  readln(n);
  f[1]:=1;
  f[2]:=2;
  for i:=3 to n do
    f[i]:=(f[i-1]+f[i-2]) mod 15746;
  writeln(f[n]);
  close(input);
  close(output);
end.