记录编号 22488 评测结果 AAAAAAAAAA
题目名称 01进制数 最终得分 100
用户昵称 Gravatar苏轼 是否通过 通过
代码语言 Pascal 运行时间 0.214 s
提交时间 2010-11-19 14:42:15 内存使用 0.11 MiB
显示代码纯文本
program binacy(input,output);

procedure main;
var
  n,i:longint;
  a:array[1..1000000]of longint;
begin
  assign(input,'binacy.in');
  reset(input);
  assign(output,'binacy.out');
  rewrite(output);

  readln(n);
  a[1]:=1;
  a[2]:=2;
  for i:=3 to n do
    a[i]:=(a[i-1]+a[i-2])mod 15746;

  writeln(a[n]);

  close(input);
  close(output);
end;

begin
  main;
end.