数列求和.prg

来自「常用算法」· PRG 代码 · 共 10 行

*sum=1+2+3……+100
sum=0
I=1
do while I<=100
         sum=sum+I
         I=I+1
Enddo
?"sum=",sum