Question

求VFP高手写程序

求50的约数的个数及所有约数的和
程序该怎么写?
谢谢~~

Answer 1

store 0 to s, c
for i = 1 to 50
if 50 % i = 0
c = c + 1
s = s + i
endif
next i
? "个数为：", c, "，总和为：", s

追问

没反应啊？

追答

要放到程序窗口中运行才有结果啊

追问

是的啊 放了 真的没反应

追答

还要运行啊，不执行怎么有结果？
还有，楼下的写的是一样的，只是写法不一

追问

还能帮忙写个 求1到100所有整数的累加 以及 累乘的程序么？
问了那个 但没人回答 谢谢~

Answer 2

clear
n=0 &&计数
s=0 &&约数的和
for i=1 to 50
if mod(50,i)=0
n=n+1
s=s+i
endif
endfor
?"50约数的个数为：",n
?"50约数的和为：",s