发新话题
打印【有0个人次参与评价】

[求助] 请教几道题

引用:
原帖由 PeterMa 于 2006-10-22 17:42 发表
1,1+1*2+1*2*3+1*2*3*4+……+1*2*3*4*……*98*99*100
  
TO PROG :N
     MAKE "B 1
     MAKE "C 1
     MAKE "M 0
     REPEAT :N [MAKE "B :B * :C  MAKE "M :M + :B  MAKE "C :C + 1]
     PR :M
END

CALCULATE  RESULT:

N1=1
N2=3
N3=9
N4=33
N5=153
N6=873
N7=5913
N8=46233
N9=409113
……
……
N100 … Math overflow    .

TOP

.

TOP

发新话题