比赛代码 - COGS

比赛	20101119	评测结果	AAAAAAAAAA
题目名称	01进制数	最终得分	100
用户昵称	maxiem	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-11-19 11:07:12

显示代码纯文本

program binacy;
var
  f:array [1..1000000] of longint;
  n,i:longint;
begin
  fillchar (f,sizeof(f),0);
  assign (input,'binacy.in');
  reset (input);
  readln (n);
  close (input);
  assign (output,'binacy.out');
  rewrite (output);
  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 (output);
end.