有哪些数是它自身约数个数的平方

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/10 22:35:55
有哪些数是它自身约数个数的平方有哪些数是它自身约数个数的平方有哪些数是它自身约数个数的平方通过VB程序验证Dima(100)AsIntegerDimiAsIntegerDimjAsIntegeri=1

有哪些数是它自身约数个数的平方
有哪些数是它自身约数个数的平方

有哪些数是它自身约数个数的平方
通过VB程序验证
Dim a(100) As Integer
Dim i As Integer
Dim j As Integer
i = 1
Do While i < 1000
For k = 1 To 100
a(k) = 0
Next k
j = 0
For k = 1 To i
If i Mod k = 0 Then
j = j + 1
a(j) = k
End If
Next k
If j ^ 2 = i Then
Print i; "=("; j; ")^2"; j ^ 2,"(";
For k = 1 To j
Print a(k);
Next k
Print ")"
End If
i = i + 1
Loop
得到答案:1、9

这样的数有很多,诸如9,他的约数有1,3,9三个。9=3^2