Cod sursa(job #901802)

Utilizator ocolisanrvocolisan ocolisanrv Data 1 martie 2013 11:45:56
Problema Al k-lea termen Fibonacci Scor 20
Compilator cpp Status done
Runda Arhiva educationala Marime 0.34 kb
Raporteaza aceasta sursa 
#include<stdio.h>
FILE *in,*out;
long int v[10000001],i,n,rez;
int main()
{
    in=fopen("kfib.in","rt");
    out=fopen("kfib.out","wt");
    fscanf(in,"%ld",&n);
    v[2]=v[1]=1;
    for(i=3;i<=n;i++)
    {
        v[i]=(v[i-1]+v[i-2])%666013;
    }
    fprintf(out,"%d ",v[n]);
    fclose(in);
    fclose(out);
    return 0;
}