楼上说错了
20+13=33不是素数啊,不满足楼主说的条件
不过我用VB模拟了一下,就诶过仍然算不出楼主的谜底.
话说真的有这样的数字吗?是不是楼主条件错了?
下面是我的代码:
Option Base 1
Dim counter As Long
Dim a() As Long
Private Sub Command1_Click()
Dim x As Long
Dim y As Long
counter = 0
For var = 1 To 260
got var
Next var
Print counter
For x = 1 To counter
For y = 1 To counter
If a(x) > a(y) Then
If a(x) * a(y) / 260 = MOD_(a(x),a(y)) Then
Text1.Text = Text1.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
If pan(a(x) + a(y)) Then
Text2.Text = Text2.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
End If
End If
Else
If a(x) * a(y) / 260 = MOD_(a(y),a(x)) Then
Text1.Text = Text1.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
If pan(a(x) + a(y)) Then
Text2.Text = Text2.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
End If
End If
End If
Next y
Next x
End Sub
Function MOD_(ByVal x As Long,ByVal y As Long) As Long
Do
t = x Mod y
x = y
y = t
Loop While t 0
MOD_ = x
End Function
Private Sub got(ByVal var As Long)
flag = 0
For i = 2 To Int(Sqr(var))
If var Mod i = 0 Then
flag = flag + 1
End If
Next i
If flag > 0 Then
counter = counter + 1
ReDim Preserve a(counter)
a(counter) = var
End If
End Sub
Function pan(ByVal var As Long) As Boolean
flag = 0
For i = 2 To Int(Sqr(var))
If var Mod i = 0 Then
flag = flag + 1
End If
Next i
If flag = 0 Then
pan = True
Else
pan = False
End If
End Function
代码是没有错误的,我已经试验很多次了.
如果我错了,烦请楼主知道答案时告诉我一声.
两个合数是素数,它们的最小公倍数是260,求两个数.
两个合数是素数,它们的最小公倍数是260,求两个数.
其他人气:380 ℃时间:2019-09-22 08:40:08
优质解答
我来回答
类似推荐
猜你喜欢
- 1已知x-2的绝对值+(y+4)的平方+x+y-2z的平方根=0,求(xz)y次方的平方根
- 2语文有哪些写作手法和表现手法以及该怎样鉴赏一个字或一句话
- 3close的同义词是什么意思啊?
- 4The road to modern english
- 5《学会合作》这篇课文说了什么道理
- 6我真的想让你成为我的笔友 英文翻译
- 7英文 “最后”用法
- 8c语言 可,求指导 (17)若有定义语句:int k1=10,k2=20;
- 92011江苏南通二模第15题补充问题:设平面向量a=(cosx,sinx),b=(cosx+2根3,sinx),c=(siny,cosy),x属于R.
- 10Trees are useful to men in three important ways:They p 1 them with wood and