比赛代码 - COGS

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

显示代码纯文本

program binacy;
var n,i:longint;
  F:array of longint;
begin
  assign(input,'binacy.in'); reset(input);
  assign(output,'binacy.out'); rewrite(output);
  readln(n);
  SetLength(F,n+1);
  F[1]:=1; F[2]:=2;
  if n>2 then
    for i:=3 to n do F[i]:=(F[i-1]+F[i-2]) mod 15746;
  writeln(F[n] mod 15746);
  close(input); close(output);
end.