求 1~100000 中，其分解的N次方和恰等於原來的數。
請依次方大小依序列出
( 2 <= N <= 10 )
範例:
153 = 1^3 + 5^3 + 3^3
輸出:
153 的 3 次方和與 153 相符
370 的 3 次方和與 370 相符
371 的 3 次方和與 371 相符
407 的 3 次方和與 407 相符
1634 的 4 次方和與 1634 相符
8208 的 4 次方和與 8208 相符
9474 的 4 次方和與 9474 相符
4150 的 5 次方和與 4150 相符
4151 的 5 次方和與 4151 相符
54748 的 5 次方和與 54748 相符
92727 的 5 次方和與 92727 相符
93084 的 5 次方和與 93084 相符
Dim temp As Long
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\out.txt" For Output As #2
For ii = 2 To 10
For i = 2 To 100000
For iii = 1 To Len(i)
If Val(Mid(i, iii, 1)) ^ ii > i Or temp > i Then temp = 0: Exit For
temp = temp + Val(Mid(i, iii, 1)) ^ ii
Next
If temp = i Then Print #2, i & " 的 "; ii & " 次方和與 " & i & " 相符"
temp = 0
Next
Next
Close #2
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\out.txt" For Output As #2
For i = 2 To 100000
s = 0
m = 0
t = 0
For k = 1 To Len(i)
n = Mid(i, k, 1)
s = s + n ^ 3
m = m + n ^ 4
t = t + n ^ 5
Next
If s = i Then Print #2, i & "的 3 次方和與 " & i & "相符"
If m = i Then Print #2, i & "的 4 次方和與 " & i & "相符"
If t = i Then Print #2, i & "的 5 次方和與 " & i & "相符"
Next
Close
End
End Sub