Cod sursa(job #507106)
| Utilizator |  Iulian iu.ciocoiu |
Data | 5 decembrie 2010 14:49:54 |
|---|---|---|---|
| Problema | Al k-lea termen Fibonacci | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva educationala | Marime | 0.33 kb |
program sir_fibonacci;
var k,t1,t2,i,t:longint;
f,g:text;
begin
assign (f,'kfib.in'); reset (f);
assign (g,'kfib.out'); rewrite (g);
read (f,k);
t1:=0;
t2:=1;
for i:=2 to k do begin t:=t1+t2;
t1:=t2;
t2:=t;
end;
write (g,t);
close (f);
close (g);
end.