Cod sursa(job #1499610)
Utilizator | Data | 10 octombrie 2015 21:28:00 | |
---|---|---|---|
Problema | Al k-lea termen Fibonacci | Scor | 0 |
Compilator | cpp | Status | done |
Runda | Arhiva educationala | Marime | 0.42 kb |
#include <stdio.h>
#include <math.h>
int main(){
unsigned long k,n;
double x=1,phi=1.618033;
FILE*f=fopen("kfib.in","r");
fscanf(f,"%lu",&k);
fclose(f);
while(k){
if(k&1){
k--;
x*=phi;
}
k>>=1;
x*=x;
}
n=ceil((x-1/x)/2.23606);
FILE*g=fopen("kfib.out","w");
fprintf(g,"%lu",n%666013);
fclose(g);
return 0;
}