Cod sursa(job #442637)

Utilizator S7012MYPetru Trimbitas S7012MY Data 14 aprilie 2010 21:40:33
Problema Al k-lea termen Fibonacci Scor 20
Compilator cpp Status done
Runda Arhiva educationala Marime 0.3 kb
#include <cstdio>
#define REST 666013

int main()
{
	long k,i,f1,f2,fn;
	FILE *f=fopen("kfib.in","r");
	FILE *g=fopen("kfib.out","w");
	fscanf(f,"%ld",&k);
	f1=0;
	f2=1;
	for(i=2;i<=k;i++) {
		fn=(f1+f2)%REST;
		f1=f2;
		f2=fn;
	}
	fprintf(g,"%ld",fn);
	fclose(f);
	fclose(g);
	return 0;
}