找出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)...