用qbasic求20到50之间的质数

来源：学生作业帮助网编辑：六六作业网时间：2024/05/20 18:14:47

用qbasic求20到50之间的质数用qbasic求20到50之间的质数用qbasic求20到50之间的质数CLSFORI=20TO50JS=0FORJ=1TOIIFIMODJ=0THENJS=JS+

用qbasic求20到50之间的质数
用qbasic求20到50之间的质数

用qbasic求20到50之间的质数
CLS
FOR I=20 TO 50
JS=0
FOR J=1 TO I
IF I MOD J=0 THEN
JS=JS+1
END IF
NEXT J
IF JS=2 THEN PRINT I
NEXT I
END

http://www.itn8.com/soft/8/53/2007/200711089614.html

FOR I=20 TO 50
F=0
FOR J=1 TO INT(SQR(I))
IF I MOD J =0 THEN F=1:EXIT FOR
NEXT J
IF F=0 THEN PRINT I ELSE F=0
NEXT I

用qbasic求20到50之间的质数求30到50之间所有的质数 qbasic中取正负两数之间的随机数公式 10到20之间的质数和为 0到20之间的质数有哪些? 0到20之间的质数有哪些?什么是质数，素数，合数？ 60到80之间的质数求3到234之间的所有质数for(i=3;i QBasic语言是Quick Basic语言的子集?QBasic就是qbasic? 20至50之间的质数有哪几个? 1到50的质数用pascal求a 到b 之间的最大质数我的程序是求出A到B之间的所有质数后,再求出他们的个数.再怎么求a 到b 之间的最大质数?program sushu;vari,j,t,a,b:integer;f:boolean;beginreadln(a,b);if a=1 then a:=a+1;for i:= a to 1000内的质数和?从1到1000之间的所有质数的和? 某质数加6为质数,减6也为质数,这个质数在30到50之间,这个质数是多少? 某质数加6为一质数,减去6也为一质数,且这个质数在30～50之间,求这个质数是多少?怎么算出来的,等急用用QBASIC语言编程:求1+3+5+7……+99 对输入的任意正整数N,输出2到N之间所有质数及质数的个数用VFP程序做初一奥数题（关于质数与合数的）1.在1到20之间求8个质数(不一定不同),使它们的平方和比他们的乘积的4倍小36294.2.已知质数p,q,使得表达式(2p+1)/q和(2q-3)/p都是正整数,试确定p²q的值.3.若两