Cod sursa(job #416951)

Utilizator andreirulzzzUPB-Hulea-Ionescu-Roman andreirulzzz Data 13 martie 2010 19:04:09
Problema Al k-lea termen Fibonacci Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 0.56 kb
#include <cstdio>
using namespace std;
FILE *f,*g;

long long n,m,t1,t2,t3,k;
long long r1,r2,r3;

int main()
{
	f=fopen("kfib.in","r");
	g=fopen("kfib.out","w");
	fscanf(f,"%lld%lld",&n);
	m=666013;
	t1=1;t2=2;
	n-=3;
	k=2200;r1=1;r2=1;
	while(k){--k;r3=r1+r2;r1=r2;r2=r3%m;}
	r1%=m;
	r2%=m;
	r3=r1+r2;
	while (n>0)
	{
		t3=(r2*t1+r3*t2)%m;
		t1=(r1*t1+r2*t2)%m;
		t2=t3;
		n-=2202;
	}
	while (n<0)
	{
		t3=t1;
		t1=t2-t3;
		t2=t3;
		if (t1<m) t1+=m;
		if (t2<m) t2+=m;
		if (t3<m) t3+=m;
		++n;
	}
	fprintf(g,"%lld",t3%m);
	return 0;
}