Cod sursa(job #386001)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 23 ianuarie 2010 21:35:44
Problema Al k-lea termen Fibonacci Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
const m=666031;
const p=2*(666031+1);
var f,g:text;
n,a,b,c:int64;
begin
assign(f,'kfib.in');
reset(f);
assign(g,'kfib.out');
rewrite(g);
readln(f,n);
n:=n-1;
n:=n mod p;
b:=1;
a:=0;
while n>0 do
begin
n:=n-1;
c:=(a+b)mod m;
a:=b;
b:=c;
end;
writeln(g,c);
close(g);
end.