记录编号 22449 评测结果 AAAAAAAAAA
题目名称 01进制数 最终得分 100
用户昵称 Gravatarsr-end 是否通过 通过
代码语言 Pascal 运行时间 0.218 s
提交时间 2010-11-19 12:01:45 内存使用 0.11 MiB
显示代码纯文本
program aa;
var
f,f1:text;
i,j,n,k,a,b,c,l:longint;
begin
a:=1;
b:=2;
k:=2;
 assign(f,'binacy.in');assign(f1,'binacy.out');
 reset(f);
 rewrite(f1);
 read(f,n);
 repeat
inc(k);
 c:=(a+b) mod 15746;
 a:=b;
 b:=c;
 until
 k=n;


write(f1,c);
close(f);close(f1);


end.