Cod sursa(job #384990)

Utilizator MciprianMMciprianM 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;
}