找出100-999之间德望无暇素数

无暇素数是指本身为素数,且其逆序数也是素数的数

第1个回答  2009-03-25
#include<iostream>
#include<cmath>
using namespace std;

int fun(int x)
{
int k;
for (k=2;k<=sqrt(x);k++)
if (x%k==0)
return 0;
return 1;
}

main()
{
int i,count=0;
for (i=100;i<=999;i++)
{
int temp1=i%10;
int temp2=(i)/10%10;
int temp3=i/100;
int temp4=temp1*100+temp2*10+temp3;
if (fun(i)&&fun(temp4))
{
count++;
printf("%d ",i);
if(count%9==0)
printf("\n");
}
}
printf("\n");
return 0;
}本回答被提问者采纳
第2个回答  2019-08-31
无暇素数是什么。。。至少吧这个说清楚吧。。。
再看看别人怎么说的。
第3个回答  2019-05-20
#include<iostream>
#include<cmath>
using
namespace
std;
int
fun(int
x)
{
int
k;
for
(k=2;k<=sqrt(x);k++)
if
(x%k==0)
return
0;
return
1;
}
main()
{
int
i,count=0;
for
(i=100;i<=999;i++)
{
int
temp1=i%10;
int
temp2=(i)/10%10;
int
temp3=i/100;
int
temp4=temp1*100+temp2*10+temp3;
if
(fun(i)&&fun(temp4))
{
count++;
printf("%d
",i);
if(count%9==0)
printf("\n");
}
}
printf("\n");
return
0;
}
第4个回答  2009-03-25
先判断一个数是素数,再分离每位数字 把它的逆序数按十进制求出 再判断是不是素数 就可以了
第5个回答  2009-03-25
无暇素数是什么。。。至少吧这个说清楚吧。。。

找出100-999之间德望无暇素数
int fun(int x){ int k;for (k=2;k<=sqrt(x);k++)if (x%k==0)return 0;return 1;} main(){ int i,count=0;for (i=100;i<=999;i++){ int temp1=i%10;int temp2=(i)\/10%10;int temp3=i\/100;int temp4=temp1*100+temp2*10+temp3;if (fun(i)&&fun(temp4)){ co...

vb编程 找出100-900之间的无暇素数。所谓无暇素数是指本身为素数,且其...
Private Sub Command2_Click() For i = 100 To 999 If IsPrime(i) And IsPrime(GetF(i)) Then Print i Next iEnd SubPrivate Function IsPrime(ByVal n As Integer) As Boolean Dim pb As Integer pb = n - 1 IsPrime = True For i = 2 To pb If n Mod ...

vb编程 找出100-900之间的无暇素数。所谓无暇素数是指本身为素数,且其...
Private Sub Command1_Click()Dim a, b, c, d As Integerb = 2 For a = 100 To 900 c = 0 d = 0 For b = 2 To a - 1 If a Mod b = 0 Then c = 1 End If Next b If c = 0 Then y = a \\ 100 + ((a \\ 10) Mod 10) * 10 +...

...且其逆序数也是素数. 利用循环找出100~1000之间所有的无暇素数...
下面是结果和fortran代码。因为1000肯定不是素数,所以循环从100做到999。另外,需要说明一下的是,101这样的对称数字,只算做一次,而157和751这样的不对称情况,就在两个地方算作两次。

求助,vb编程题。设计一个程序,找出100~900之间的无暇素数
Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, ImmaculacyPrimeNumber As Integer Dim InversionNumber, Counter As Integer For i = 100 To 900 ImmaculacyPrimeNumber = 100 * (i Mod 10) + 10 * (i \\ 10 Mod 10) + i \\ 100 If IsPrimeNumber(i) And IsP...

找出100-900之间的无暇素数.所谓无暇素数是指本身为素数,且其逆序数也...
void main ( ){ int n,a,b,c,k,d,i,flag;for(n=100;n<=900;n++){ flag=1;k=(int)sqrt(n);for(i=2;i<=k;i++){ if(n%i==0)flag=0;} if(flag){ a=n%10;b=n\/10%10;c=n\/100;d=a*100+b*10+c;} k=(int)sqrt(d);for(i=2;i<=k;i++){ if(d%i==0)...

相似回答