======================================
以上是我的答案,请多多指教作者: mytulip 时间: 2004-4-9 12:15 标题: 回复: 17题11楼没错,我以为是只要写最后一个关闭的灯。
因为要关闭开的灯要拨奇次,而一个数的公约数都是配对的,如10公约数为 1*10,2*5,公约数为奇数只可能是俩个配对公约数是同一个数,如5*5=25,4*4=16这种
wo我写vb程序为下,可以参考一下:
Sub Calc()
Dim i As Integer, j As Integer
Dim ArrayBool(1 To 100) As Boolean
Dim output As String
output = ""
'初始化 ArrayBool
For i = 1 To 100
ArrayBool(i) = True
Next
'运算
For i = 1 To 100
For j = 1 To 100
If j Mod i = 0 Then
ArrayBool(j) = Not ArrayBool(j)
End If
Next
Next
'输出
For i = 1 To 100
If Not ArrayBool(i) Then
output = output & "," & i
End If
Next
MsgBox output