比赛代码 - COGS

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

显示代码纯文本

program binacy;
var
  i,j,k,l,n:longint;
  max:longint;
begin
  assign(input,'binacy.in');
  reset(input);
  assign(output,'binacy.out');
  rewrite(output);
  readln(n);
  k:=1;
  l:=2;
  i:=2;
  while i<>n do
  begin
    inc(i);
    j:=(k+l) mod 15746;
    k:=l;
    l:=j;
  end;
  writeln(l);
  close(input);
  close(output);
end.