Cod sursa(job #442637)
Utilizator | 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;
}