平方數真因子是什麼?
為什麼完全平方數的因子個數是奇數
一個整數分解因數,表達為A=XY,X、Y是兩個不同的整數,即因子總是成對出現.如6=1x6=2x3.如果Y=X,則A=XY=Xx,A當然是完全平方數.x、x是兩個因子,但按集合觀點來看,根據元素互異性,只算一個,這次分解因子相重：個數就為奇數了.如36=1x36=2x18=3x12=4x9=6x6,前四次分解因子都成對為偶數,最後兩6只算一種因子,就成奇數了.
完全數是什麼？
是一些特殊的自然數，它所有的真因子（既除了自身以外的約數）的和等於它本身
求教數學大神，對於每一個質數p來說,若p是n的一個因子,則p平方也是n的一個因子。為什麼n為完全平方數？？ 30分
解答：這種說法是錯誤的。n 不一定是完全平方數。我可以舉出反例。
舉個反例：
如果 p 是質數2，n 是8，那麼 2 是 8 的一個因子。那麼 p 的平方是4，同時 4 也是8的因子。但是 8 並不是一個完全平方數。所以你的這種說法是不正確的。
再比如：
如果 p 是質數3，n 是27，那麼 3 是 27 的一個因子。那麼 p 的平方是9，同時 9 也是 27 的因子。但是 27 並不是一個完全平方數。所以你的這種說法是不正確的。
你從哪兒看來的這個說法？可能是你看錯了或者理解錯了。
如果一個數的因子之和等於這個數本身，則稱這樣的數為“完全數”。
Private Sub Command1_Click()
Dim M As Integer, N As Integer, S As Integer, I As Integer
N = Val(InputBox("輸入N:"))
M = Val(InputBox("輸入M:"))
If N > M Then
S = N
N = M
M = S
End If
For N = N To M
S = 0
For I = 1 To N - 1
If N Mod I = 0 Then S = S + I
Next
If N = S Then Print N;
Next
End Sub
求vb程序 找出100以內的所有因子之和為完全平方數的正整數
在窗體一畫一個按鈕就可以。
Function chuli(ByVal old) As Integer
chuli = 1
Do While old > 1
For i = 2 To old
If old Mod i = 0 Then
chuli = chuli + i
old = old / i
If old < i Then Exit For
i = i - 1
End If
Next
Loop
End Function
Private Sub Command1_Click()
For old = 1 To 100
If Sqr(chuli(old)) = Int(Sqr(chuli(old))) Then Print old;
Next
End Sub