vfp改错!CLEARk=0FOR m=10 TO 80SS=1FOR n=2 TO MIF mod(m,n)=0SS=

vfp改错!
CLEAR
k=0
FOR m=10 TO 80
SS=1
FOR n=2 TO M
IF mod(m,n)=0
SS=0
ENDIF
Next n
IF SS=0
K=K+1
ENDIF
Next m
"素数的个数是:",k+1
RETURN
nnfds 1年前 已收到1个回答 举报

不哭猫猫 幼苗

共回答了15个问题采纳率:93.3% 举报

程序改动如下:
CLEAR
k=0
FOR m=10 TO 80
SS=1
FOR n=2 TO 9
IF mod(m,n)=0
SS=0
ENDIF
Next n
IF SS!=0
K=K+1
ENDIF
Next m
"素数的个数是:",k
RETURN

1年前

5
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.011 s. - webmaster@yulucn.com