Cod sursa(job #585566)
Utilizator | Data | 30 aprilie 2011 03:10:59 | |
---|---|---|---|
Problema | Al k-lea termen Fibonacci | Scor | 0 |
Compilator | c | Status | done |
Runda | Arhiva educationala | Marime | 0.35 kb |
#include <stdio.h>
#include <stdlib.h>
long int fib(long int x)
{
int a[x],i;
a[1]=1;a[2]=1;
for(i=3;i<=x;i++)
a[i]=a[i-2]+a[i-1];
return a[x];
}
int main()
{
long int x;
FILE *f,*g;
f=fopen("kfib.in","r");
g=fopen("kfib.out","w");
fscanf(f,"%ld",&x);
fprintf(g,"%ld",fib(x));
return 0;
}