[请益] 请教一个小小的问题

楼主: dagood (鲁叔->废伯)   2014-01-27 23:16:05
不好意思 我是使用maple套装软件
但是因为程式写法应该不会差太远
我可以试试
我在写一个循环
史的
给定前三个数 2,0,1
之后的每一个数都是前三个数相加除以10的余数
且我要设定i 到重复出现2,0,1 停止
a[1]:=2
a[2]:=0
a[3]:=1
for i from 1 to 100 do
a[i+3]:=modp(a[i]+a[i+1]+a[i+2],10)
end do;
我想要把这个循环的 from 1 to 100
改到 from 1 到 2,0,1 连续三数出现为止 我的while要怎么写呢
或是有其他写法...thx

Links booklink

Contact Us: admin [ a t ] ucptt.com