Cod sursa(job #384984)

Utilizator MciprianMMciprianM MciprianM Data 21 ianuarie 2010 21:36:41
Problema Al k-lea termen Fibonacci Scor 0
Compilator c Status done
Runda Arhiva educationala Marime 0.43 kb
#include <stdio.h>

#define MOD 666013

long fibo(long k)
{
    if (k==0)    return 0;
    if (k==1)    return 1;
    return ((fibo(k-1)+fibo(k-2)>=MOD)?(fibo(k-1)+fibo(k-2)-MOD):(fibo(k-1)+fibo(k-2)));
}

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