- 积分
- 14
- 注册时间
- 2009-5-7
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2010-2-1 19:40:51
|
显示全部楼层
来自 北京
- n = 731671765313306249192251196744265747423553491949349698352031277450\
- 6326239578318016984801869478851843858615607891129494954595017379583319\
- 5285320880551112540698747158523863050715693290963295227443043557668966\
- 4895044524452316173185640309871112172238311362229893423380308135336276\
- 6142828064444866452387493035890729629049156044077239071381051585930796\
- 0866701724271218839987979087922749219016997208880937766572733300105336\
- 7881220235421809751254540594752243525849077116705560136048395864467063\
- 2441572215539753697817977846174064955149290862569321978468622482839722\
- 4137565705605749026140797296865241453510047482166370484403199890008895\
- 2434506585412275886668811642717147992444292823086346567481391912316282\
- 4586178664583591245665294765456828489128831426076900422421902267105562\
- 6321111109370544217506941658960408071984038509624554443629812309878799\
- 2724428490918884580156166097919133875499200524063689912560717606058861\
- 1646710940507754100225698315520005593572972571636269561882670428252483\
- 600823257530420752963450;
- arr = IntegerDigits[n];
- len = Length[arr] - 4;
- brr = Max[Table[Product[arr[[i]], {i, j, j + 4}], {j, 1, len}]]
- 40824
复制代码 复制到Word中然后将回车去掉就可以了.
方法是将
^p
替换成
"什么也不写"
然后再复制会Mathematica 就可以了. |
|