5和6的公倍数为30,
所以枚举出能被30整除的三位数字是:
120、150、180、210、240、270、300、330、360、390、420、450、480、510、540、570、600、630、660、690、720、750、780、810、840、870、900、930、960、990
至少有一个为6的三位是:360、600、630、660、690、960。一共6个。
360, 600, 630, 660, 690, 960,
共 6 个 。
附:VBA 程序
sub Program()
Dim i As Integer, j As Integer
j = 0
For i = 120 To 990 Step 30
If Mid(Trim(CStr(i)), 1, 1) = "6" Or Mid(Trim(CStr(i)), 2, 1) = "6" Or Mid(Trim(CStr(i)), 3, 1) = "6" Then
Selection.TypeText Text:=i & " "
j = j + 1
End If
Next i
Selection.TypeText Text:="共" & j & "个"
End Sub
360.600.660.660.690.960.共6个
36 66 96 63 60 69