Cod sursa(job #384990)
Utilizator | MciprianM MciprianM | Data | 21 ianuarie 2010 21:43:55 |
---|---|---|---|
Problema | Al k-lea termen Fibonacci | Scor | 20 |
Compilator | c | Status | done |
Runda | Arhiva educationala | Marime | 0.48 kb |
#include <stdio.h>
#define MOD 666013
long fibo(long k)
{
if(k<2) return k;
int t,t1,t2;
t2=0; t1=1;
k--;
while(k--){
t=t1+t2;
if(t>=MOD) t-=MOD;
t2=t1; t1=t;
}
return t;
}
int main()
{
long k, tk;
FILE* f,*g;
f=fopen("kfib.in","r");
fscanf(f,"%ld",&k);
fclose(f);
tk=fibo(k);
g=fopen("kfib.out","w");
fprintf(g, "%ld", tk);
fclose(g);
return 0;
}