请你设计程序,对于给定的自然数N确定满足下述关系的最小数S.S可以表示为两对不同的自然数的n次方幂.即找出最小数S,使得：S=a^n+b^n=c^n+d^n这里a,b,c,d都是自然数,切ac,bd例如,当n=2时,有S=50=1^2+7

Question

请你设计程序,对于给定的自然数N确定满足下述关系的最小数S.S可以表示为两对不同的自然数的n次方幂.即找出最小数S,使得：S=a^n+b^n=c^n+d^n这里a,b,c,d都是自然数,切ac ,bd例如,当n=2时,有S=50=1^2+7^2=5^2+5^2 当n=3时,有S=1729=1^3+12^3=9^3+10^3

Answer 1

Dim N As Integer
Dim Min As Long
N = InputBox("")
Min = 0
For a = 1 To 20 '要适应更大的范围可以修改20
For b = 1 To 20 '同上
For c = 1 To 20 '同上
For d = 1 To 20 '同上
If a d And c b And a c And b d And a ^ N + b ^ N = c ^ N + d ^ N Then
If Min > a ^ N + b ^ N Or Min = 0 Then
Min = a ^ N + b ^ N
End If
End If
Next
Next
Next
Next
MsgBox Min