Cod sursa(job #812867)
| Utilizator |  Nibas B36 sab-c |
Data | 14 noiembrie 2012 16:50:57 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.29 kb |
program fibonaci;
var a:array[1..10000000] of longint;
fi,fo:text;
i,n:longint;
begin
assign(fi,'fib.in');reset(fi);
assign(fo,'fib.out');rewrite(fo);read(fi,n);
a[1]:=1;a[2]:=1;
for i:=3 to n do begin
a[i]:=a[i-2]+a[i-1];
end;
write(fo,a[i] mod 666013);
close(fi);close(fo);
end.
