| 比赛 | 20101119 | 评测结果 | AAAAAAAAAA |
|---|---|---|---|
| 题目名称 | 01进制数 | 最终得分 | 100 |
| 用户昵称 | ybh | 运行时间 | 0.000 s |
| 代码语言 | Pascal | 内存使用 | 0.00 MiB |
| 提交时间 | 2010-11-19 08:40:20 | ||
{Binacy NOIP模拟2010-11-19
Author: yangbohua
Time: 2010-11-19}
program binacy;
var
f:array[0..1000000] of longint;
n,i:longint;
begin
assign(input,'binacy.in');
reset(input);
assign(output,'binacy.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.