Cod sursa(job #979156)

Utilizator get0000lostSatmarean Paul get0000lost Data 31 iulie 2013 21:44:13
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.27 kb
Raporteaza aceasta sursa 
program fibb;
var f:text; i,n,x,y,k:longint;
begin
 assign(f,'kfib.in');
 reset(f);
 readln(f,n);
 close(f);
 assign(f,'kfib.out');
 rewrite(f);
 x:=1;
 y:=1;
 for i:=3 to n do
   begin
    k:=x+y;
    y:=x;
    x:=k;
   end;
 write(f,k);
 close(f);
end.