VFP编程找出100以内的所有素数，并统计出前20个的和
答案:2 悬赏:70
解决时间 2021-02-14 15:02
- 提问者网友：但未伤到心
- 2021-02-14 09:24
VFP编程找出100以内的所有素数，并统计出前20个的和
最佳答案
- 二级知识专家网友：强势废物
- 2021-02-14 10:16
Clear
Set Talk On
ms = 0 &&和
j = 0 &&素数个数
m.flag = 0 &&标记一个数是否为素数
For i = 2 To 100
m.flag = 0
For k = 2 To i - 1
If i % k == 0
m.flag = 1
Exit
Endif
Next
If m.flag == 0
*? i&& 如果要显示素数的值，去掉前面的*号
j = j + 1
If j <= 20
ms = ms + i
Endif
Endif
Next
?j
? ms
Set Talk On
ms = 0 &&和
j = 0 &&素数个数
m.flag = 0 &&标记一个数是否为素数
For i = 2 To 100
m.flag = 0
For k = 2 To i - 1
If i % k == 0
m.flag = 1
Exit
Endif
Next
If m.flag == 0
*? i&& 如果要显示素数的值，去掉前面的*号
j = j + 1
If j <= 20
ms = ms + i
Endif
Endif
Next
?j
? ms
全部回答
- 1楼网友：白日梦制造商
- 2021-02-14 11:34
clear
for i=100 to 1000
for j=2 to int(sqrt(i))
if i%j=0
exit
endif
endfor
if j>=int(sqrt(i))
?i,"是素数"
else
?i,"不是素数"
endif
endfor
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯