两个合数是素数,它们的最小公倍数是260,求两个数.
题目
两个合数是素数,它们的最小公倍数是260,求两个数.
答案
楼上说错了
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
代码是没有错误的,我已经试验很多次了.
如果我错了,烦请楼主知道答案时告诉我一声.
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 一个数的1/3加上2.4与5/6的积,和是2.4,这个数是多少?
- 哪位大哥可以帮小弟写一篇关于江南的美文,最好以“枯藤老树昏鸦,小桥流水人家,古道西风瘦马.夕阳西下,断肠人在天涯.”为中心,希望是原创,
- 若2a+b/3是负数,则a的取值范围是
- 这个"TO"的用法或意思
- 十倍望远镜真的能看到人脸吗
- 直线与圆的位置关系是相交时公共点的名称是什么
- “不要问我为什么、我又不是十万个为什么”谁能都我用英语翻译它
- 有一堆大米,如果没袋装45千克,要装35袋,如果每袋装25千克,需要装多少袋?
- be made of 和be made from 和be made in的区别
- 5分钟等待有人回答思考题(小学)
热门考点
- 过三点A(-1.2),B(1,-1)C(3,2)的圆的标准方程
- 求别懂大这首诗意思
- 谁给我一篇以排比式开头的作文我?
- 离体的植物组织或细胞在适当培养条件下发育成完整的植株,离体动物体细胞却没有发育成动物的成熟个体,原因是( ) A.动物细胞内没有成套的遗传物质 B.动物细胞的全能性随分化程
- 已知向量a=(3,-2),b=(-2,1),c=(7,-4) 若c=xa+yb 则X Y各等于多少
- Everyone will______(sure)change when they grow up
- 44吨水泥,用大小2辆卡车运,大卡车载重8吨,小卡车载重5吨,怎样一次运完?
- 《垢、蕴、耨、藐、涅、诃》这些字我都不会读,佛经里《般若罗密》波还有这句里面的《般》字该读Ban字还是?
- 化学中回流加热是什么意思?
- 不定式作定语和作宾补的区别?