急（在线等待）

[emychen]

我想编写：输入一个整数，输出它的质因素，并将他们累加起来（例如120的质因素为2、2、2、3、5）。
do while .t.
n=0
@ 2,2 get n picture '999'
read

if n<1
exit
endif
_sum=0
for i=2 to n
if n%i=0
? i
_sum=_sum+1
n=n/i
endif
endfor
? 'sum=',_sum
enddo

[fj_jiangqi]

给你一个思路：
将找出的质数用分隔符加字符组成，如endval=",2,2,2,3,5"。
再用repl(endval,",","+")将里头的","替换为"+"。
最后来个&宏替换就得出和的值。
-------------------------
我流落在凄凉的世界里－孤苦伶仃
我过着动荡无助的生活－四处漂泊

[newfang]

呵呵~~~~年代太久了，质因数怎么求也记不起来了……

[老猿的书房]

只有思路在这里
找出n的最小因子m
将n替换成其n/m的商
如些循环直到n本身也是一个质数为止

附：任何数的最小因子都是质数，可以用反证法证明的