记录编号 191486 评测结果 AAAAAAAAAA
题目名称 01进制数 最终得分 100
用户昵称 Gravatarグッド大きな萌菌 是否通过 通过
代码语言 Pascal 运行时间 0.078 s
提交时间 2015-10-07 20:29:28 内存使用 7.80 MiB
显示代码纯文本
program binacy;
var
	n,i:longint;
	a:array[1..2000000]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.