QBasic无暇素数无暇素数是一个两位数,各位、十位对调后还是素数.求所有的无暇素数
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/09 00:11:41
QBasic无暇素数
无暇素数是一个两位数,各位、十位对调后还是素数.求所有的无暇素数
无暇素数是一个两位数,各位、十位对调后还是素数.求所有的无暇素数
CLS
FOR i = 10 TO 99
k = 0:t = 0
DO
k = k + 1
FOR j = 2 TO i /2
IF k * j = i THEN t = t + 1:EXIT DO
NEXT j
LOOP UNTIL k = i
k=0
p1 = FIX(i / 10)*10+i\10
do
k=k+1
for j = 2 to p1\2
if k*j=p1 then t=t+1:exit do
next j
loop until k=p1
IF t = 0 THEN PRINT i,:y = y + 1
NEXT i
PRINT
PRINT "all"; y
END
FOR i = 10 TO 99
k = 0:t = 0
DO
k = k + 1
FOR j = 2 TO i /2
IF k * j = i THEN t = t + 1:EXIT DO
NEXT j
LOOP UNTIL k = i
k=0
p1 = FIX(i / 10)*10+i\10
do
k=k+1
for j = 2 to p1\2
if k*j=p1 then t=t+1:exit do
next j
loop until k=p1
IF t = 0 THEN PRINT i,:y = y + 1
NEXT i
PRINT "all"; y
END
找出100到200的无暇素数
一个素数是两位数,交换十位与个位上的数字,所得的两位仍是素数.写出所有符合条件的两位数.
一个两位质数,将它的十位数字与个位数字对调后仍是一个质数,我们称它为“无暇质数”,则所有"无暇质数"
设计一个算法求1~200内所有素数的查找,并输出所有素数
编一个求素数的函数,求3-1000之间的所有孪生素数
一个四位数,它的个位和千数的和是10,个位是偶数又是素数,百位和十位组成的两位数是素数
一个素数,当它的数字位置对换以后仍为素数,这样的素数称为绝对素数.编写出一个程序,求出所有的绝对素数.
如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13.试求出所有二位绝对素数
最大的两位数的素数
一个两位素数,交换其各位与十位上的数字仍为素数,这样的数有几个
我是一个素数,我和另一个素数的和是最大的两位数,我比较小,猜猜我是谁
编写一个求素数的函数,然后用主函数调用该函数来求100至500之间的所有素数,并统计素数的个数.