Cod sursa(job #530863)

Utilizator superman13Stefan Maimescu superman13 Data 8 februarie 2011 16:21:49
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.26 kb
Raporteaza aceasta sursa 
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);
close(input); close(output);
end.