用qbasic求20到50之间的质数
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/01 13:23:39
用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.若两