Cod sursa(job #386017)

Utilizator valytgjiu91stancu vlad valytgjiu91 Data 23 ianuarie 2010 22:03:53
Problema Al k-lea termen Fibonacci Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.29 kb
const m=666013;
const p=2*(666013+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.