Cod sursa(job #530867)
| Utilizator |  Stefan Maimescu superman13 |
Data | 8 februarie 2011 16:26:27 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.27 kb |
program zaitz;
var n, i, f, f1, f2:qword;
begin
assign(input, 'kfib.in');
assign(output, 'kfib.out');
reset(input); rewrite(output);
read(n);
f1:=0;
f2:=1;
i:=0;
n:=n;
while i<>n do begin
i:=i+1;
f:=f1+f2;
f2:=f1; f1:=f;
end;
write(f mod 666013);
close(input); close(output);
end.