题目
求100到200之间的孪生素数及共有多少对?
若A为素数,而A + 2也是素数,则称A和A +2是一对孪生素数,如3和5是一对孪生素数.
若A为素数,而A + 2也是素数,则称A和A +2是一对孪生素数,如3和5是一对孪生素数.
提问时间:2021-02-27
答案
Private Sub Command1_Click()
Dim A(100) As Integer
Dim N As Integer
Dim i As Integer, j As Integer, x As Integer
For i = 100 To 200
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1
Next j
If x = 0 Then
A(N) = i
N = N + 1
End If
Next i
Dim Ncont As Integer
For i = 0 To N - 1
If A(i + 1) - A(i) = 2 Then
Print A(i) & ";" & A(i + 1)
Ncont = Ncont + 1
End If
Next
Print "对数=" & Ncont
End Sub
Dim A(100) As Integer
Dim N As Integer
Dim i As Integer, j As Integer, x As Integer
For i = 100 To 200
x = 0
For j = 2 To i - 1
If i Mod j = 0 Then x = 1
Next j
If x = 0 Then
A(N) = i
N = N + 1
End If
Next i
Dim Ncont As Integer
For i = 0 To N - 1
If A(i + 1) - A(i) = 2 Then
Print A(i) & ";" & A(i + 1)
Ncont = Ncont + 1
End If
Next
Print "对数=" & Ncont
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1把5.1g镁铝合金的粉末放入过量的NaOH的溶液反应,得到3.36L氢气 1.铝的质量分数 2.镁和铝的物质的量之比
- 2There is _ a in the word "ear".(冠词填空)
- 3初二数学一次函数(在线等)
- 4怎么算1+2-3+4+5-6+7+8-9+……+97+98-99+100
- 5We look forward to,our future.If you well,is sunny .
- 6If you had followed the doctor’sadvice you( )all right now.A would have been B will be C would be D
- 7一质量为4.0×103kg,发动机额定功率为60kW的汽车从静止开始以a=0.5m/s2的加速度做匀加速直线运动,它在水平面上运动时所受的阻力为车重的0.1倍,g取10m/s2,求 (1)启动2s末发
- 8若在某点钻探,钻透地球,对应点就是对跖点?
- 9△ABC中,AC=5,中线AD=7,则AB边的取值范围是( ) A.1<AB<29 B.4<AB<24 C.5<AB<19 D.9<AB<19
- 10在距地面12m高处以12m/s的速度抛出一个质量为2kg的物体,物体落到地面时的速度为19m/s,那么人在抛物的过程中对物体做的功是多少J?物体下落过程中克服阻力做的功是多少J?
热门考点
- 1we took a walk in the park的同义句
- 2The reason _______ he was late again was that he was caught in a traffic jam in the rush hour.
- 3430/70=43/7=6.1这样计算对吗?为什么?
- 4证明1元等于1分钱
- 5一道数学题,用方程组做
- 64个4怎样才能得到4?要求:只能用加减乘除,不得用括号
- 7(3a^2b^-1)^3(1/2a^-1b^2)^2
- 8商场第一年捎售手机5000台,如果每年的捎售量比上一年增加相同的百分率x,写出第三年的捎售量y与每年增加的百分率x之间的函数关系式.
- 9请帮忙翻译一下这本书名《生物化学实验方法和技术》 在线等.
- 10酸和碱哪个更容易腐蚀铁制品?