UC知道第七场(初赛第二轮36进33):第1组(12进11)
来源：百度知道 编辑：UC知道 时间：2024/05/31 08:37:44
说明:这是这次比赛的第七场,也是初赛的第二轮淘汰赛,是由初赛一轮
被选出来的36名选手,分成3组,每组12人进行比赛.比赛由积分
而定,积分少的选手被淘汰.多的晋级到下一轮.
题目:在括号里填上4个质数,使等式成立100=( )+( )+( )+2*( )
积分:第1组晋级的12名选手的积分如下:babywuqian(26),huangjianfan(26),shizi6161(25),110903522(23),huangjian108(22),精灵爵士(21),
重归一统(16),shacktom(15),zy905163415(15),9202411(12),coolwantu(10),renmon1987(9)
答题时间限3天,结束后,积分最少的选手被淘汰.
被选出来的36名选手,分成3组,每组12人进行比赛.比赛由积分
而定,积分少的选手被淘汰.多的晋级到下一轮.
题目:在括号里填上4个质数,使等式成立100=( )+( )+( )+2*( )
积分:第1组晋级的12名选手的积分如下:babywuqian(26),huangjianfan(26),shizi6161(25),110903522(23),huangjian108(22),精灵爵士(21),
重归一统(16),shacktom(15),zy905163415(15),9202411(12),coolwantu(10),renmon1987(9)
答题时间限3天,结束后,积分最少的选手被淘汰.
100=（2）+（23）+（41）+2*（17）
(29)+(23)+(2)+2*(23)=100
(29)+(31)+(2)+2*(19)=100
考虑100是偶数 质数除了2以外都是奇数 2*奇数为偶数
所以3个空里必有1个2 或3个2 可简化循环
Option Base 1
Private Sub Command1_Click()
Dim a(30) As Integer
Sum = 0
a(1) = 2
a(2) = 3
a(3) = 5
a(4) = 7
a(5) = 11
a(6) = 13
a(7) = 17
a(8) = 19
a(9) = 23
a(10) = 29
a(11) = 31
a(12) = 37
a(13) = 41
a(14) = 43
a(15) = 47
a(16) = 53
a(17) = 59
a(18) = 61
a(19) = 67
a(20) = 71
a(21) = 73
a(22) = 79
a(23) = 83
a(24) = 89
a(25) = 97
For i = 1 To 25
For j = 1 To 25
For k = 1 To 25
If a(i) + a(j) + a(k) * 2 = 98 Then
Sum = Sum + 1
Print a(i); a(j); a(k)
End If
Next k
Next j
Next i
Text1.Text = Sum
End Sub
sum为118 一共118组解
2 2 2 47。。。
略
100是偶数