Fibonacci sequence

题解：

  水水的矩阵乘法（终于发现以前做的有用啦~~）

提示

   随时mod 10000

（博主太机智，他写的很少，我才不给你们转载的机会！！）代码：

矩阵：010

111

001

var i,j,k:longint;

begin

fillchar(cheng,sizeof(cheng),0);

for i:=1 to 3 do

for j:=1 to 3 do

for k:=1 to 3 do

c[i,j]:=(c[i,j]+x[i,k]*y[k,j])mod10000;

end;