对输入的任意正整数N,输出2到N之间所有质数及质数的个数 用VFP程序做
题目
对输入的任意正整数N,输出2到N之间所有质数及质数的个数 用VFP程序做
答案
clear
input "请输入一个数：" to n
?"这些质数有："
s=0
for i=2 to n
x=0
for j=2 to i-1
if i/j=int(i/j)
x=1
endif
endfor
if x=0
?alltrim(str(i))+" "
s=s+i
endif
endfor
?"它们的和：",s
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 已知数列a1=1,an+1-an=-1的n次方,则a100=?
- 如图,已知∠ABE+∠CEB=180°,∠1=∠2,那么BF与EG平行吗?为什么?
- 胆矾是化合物吗,什么是化合物?什么是单质
- 为什么说单质的化合价是零
- He is my friend 的同义句
- 中学英文词语连线配对（将意思和词语配对）急!
- 大学生应征入伍对军力,国防有什么意义
- 在-3/5和-2/5间插入3个数,使这五个数中相邻两个数的差相等
- 61.despite hardships,she--------in her efforts to get a college education.
- 从网络的地理范围来看,计算机网络如何分类?
热门考点
- 1.
- 如图,在平行四边形ABCD中,对角线AC,BD相交于点O,过点O做直线EF⊥BD,分别交AD,BC于E和F,求BEDF是菱形
- 有一个放大镜,在这个放大镜上看一条线段,其长度扩大8倍,在这个放大镜上看一个正方形面积扩大（ ）倍.
- 小周顶风骑自行车往离家0.3千米的海兴公园,比时风速为每分钟20米,则他必须以每分钟多少米的骑车速度,才能保证在20分钟内赶到公园?
- 设2003X的三次方=2004Y的三次方=2005Z的三次方,XYZ＞0,且三次根号下2003X的二次方+2004Y的二次方+2005Z的二次方=三次根号下2003+三次根号下2004+三次根号下20
- 春来江水绿如蓝
- 12和3和-12和-1的二十四点怎么做
- 0.73-0.25-0.73+0.25用简便方法怎么算
- 数字虽小,却在百万以上.打一数词
- 怎么做中心对称图形[详细点]