记录编号 198993 评测结果 AAAAAAAAAA
题目名称 [cnoier] 斐波那契数 最终得分 100
用户昵称 Gravatarグッド大きな萌菌 是否通过 通过
代码语言 Pascal 运行时间 0.000 s
提交时间 2015-10-25 19:29:59 内存使用 0.17 MiB
显示代码纯文本
var j,sum,n,m,p,i:longint;
	a:array[1..2000]of longint;
begin
	assign(input,'fibonacci.in');reset(input);
	assign(output,'fibonacci.out');rewrite(output);
	read(n,p,m);
	a[1]:=1;a[2]:=1;
	if n=0 then
	begin
		writeln('-1');
		exit;
	end;
	if n=1 then
	begin
		writeln('1');
		exit;
	end;
	for i:=3 to m do 
		begin
			a[i]:=(a[i-1]+a[i-2]) mod p;
			if a[i]=n then
			begin
				writeln(i);
				inc(sum);
				exit;
			end;
		end;
	if sum=0 then writeln('-1');
	close(input);close(output);
end.