鼠算遺題

“鼠算遺題”。這是日本數學家吉田光在1627年提出來的。他是這樣說的：“正月里，鼠父鼠母生了12隻小鼠，於是大小鼠共14隻。二月里，兩代鼠全部配對，每對鼠又各生了12隻小鼠。因此共有98隻。如這樣下去，每月所有的鼠全部配對，每對鼠又各生了12隻小鼠。十二個月後，鼠的總數是多少呢？”
假設每月都按這樣的規律生，而所生的鼠又全部成活，十二個月後，鼠的總數將是27682574402隻。
Pascal 代碼：
Program mouses;
var
i,j,h: integer;
mouse : array[1..21] of integer;
Begin
for i:=1 to 21 do
mouse[i]:=0;
mouse[1]:=2;
for i:=1 to 12 do
begin
for j:=1 to 20 do
mouse[j] := mouse[j] * 7;
for j:=1 to 20 do
begin
mouse[j+1] := mouse[j+1] + mouse[j] div 10;
mouse[j] := mouse[j] - (mouse[j] div 10) * 10;
mouse[j] := mouse[j] mod 10;
end ;
end;
h:=21;
while mouse[h]=0 do
h:=h-1;
for i:=h downto 1 do
write (mouse[i]);
End.
C代碼：
#include"stdio.h"
int main()
{ int i,j,h;
int mouse[22]={0};
mouse[1]=2;
for(i=1;i<=12;i++)
{ for(j=1;j<=20;j++)
mouse&#91;j&#93;*=7;
for(j=1;j<=20;j++)
{ mouse&#91;j+1&#93;+=(mouse&#91;j&#93;/10);
mouse&#91;j&#93;-=((mouse&#91;j&#93;/10)*10);
mouse&#91;j&#93;%=10;
}
}
h=21;
while (mouse&#91;h&#93;==0&&h--) ;
for(i=h;i>=1;i--) printf("%d",mouse&#91;i&#93;);
return 0;
}