333667除以几为整数

333667是质数

楼上是怎么知道这个数是质数的？

333667是质数，除了1和它本身，都不能整除。
所以答案是1和333667。

下面是验证的vb6.0程序。

Option Explicit

Private Sub Command1_Click()
Dim a%, b, i%
a = 3336: b = 67
For i = 3 To a Step 2
b = 6 + (a Mod i) * 10
b = 7 + (b Mod i) * 10
If b Mod i = 0 Then List1.AddItem i
Next i
End Sub

楼上用什麼算的啊。不过这的确是质数