三级试题:从1000~9999的素数中,找出满足以下条件的个数cnt,以及那些数的和sum.条件:千位数与百位数的和等于十位数与个位数的和,且千位数与百位数的和是个位数与千位数差的十倍.求出满

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/10 19:46:04

三级试题:从1000~9999的素数中,找出满足以下条件的个数cnt,以及那些数的和sum.条件:千位数与百位数的和等于十位数与个位数的和,且千位数与百位数的和是个位数与千位数差的十倍.求出满
三级试题:从1000~9999的素数中,找出满足以下条件的个数cnt,以及那些数的和sum.
条件:千位数与百位数的和等于十位数与个位数的和,且千位数与百位数的和是个位数与千位数差的十倍.求出满足条件的cnt,sum.
#include
int sum,cnt;
void cal()
{
\x05int x[1000]={0};
\x05int i,j,a,b,c,d,k=0,f;
\x05for(i=1000;i

三级试题:从1000~9999的素数中,找出满足以下条件的个数cnt,以及那些数的和sum.条件:千位数与百位数的和等于十位数与个位数的和,且千位数与百位数的和是个位数与千位数差的十倍.求出满
我用vb编了一个小程序测试了一下是没有问题的
Private Sub Command3_Click()
Dim a(100000),i,n,j,k,cnt,sum As Double
sum = 0
k = 1
For i = 3 To 100
n = Int(Sqr(i))
j = 2
loop1:If i Mod j = 0 Then
GoTo loop2
ElseIf j > n Then GoTo loop3
Else:j = j + 1
End If
GoTo loop1
loop3:a(k) = i
sum = sum + a(k)
k = k + 1
loop2:
Next
k = k - 1
Text1.Text = k
Text2.Text = sum
end