编写一个函数用于判断一个三位数是否为“水仙花数”,用主函数调用其实现所有三位数的判断.水仙花数:三个位数上数字的立方和等于该数,如:153=13+53+33c++
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/10 01:08:40
编写一个函数用于判断一个三位数是否为“水仙花数”,用主函数调用其实现所有三位数的判断.水仙花数:三个位数上数字的立方和等于该数,如:153=13+53+33c++
编写一个函数用于判断一个三位数是否为“水仙花数”,用主函数调用其实现所有三位数的判断.
水仙花数:三个位数上数字的立方和等于该数,如:153=13+53+33
c++
编写一个函数用于判断一个三位数是否为“水仙花数”,用主函数调用其实现所有三位数的判断.水仙花数:三个位数上数字的立方和等于该数,如:153=13+53+33c++
100x+10y+z=x³+y³+z³
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
If IsShui(i) Then
Print i
End If
Next i
End Sub
Private Function IsShui(ByVal Int_A As ...
全部展开
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
If IsShui(i) Then
Print i
End If
Next i
End Sub
Private Function IsShui(ByVal Int_A As Integer) As Boolean
If (Int_A - Int(Int_A / 10) * 10) ^ 3 + Int(Int_A / 100) ^ 3 + ((Int_A - Int(Int_A / 100) * 100 - (Int_A - Int(Int_A / 10) * 10)) / 10) ^ 3 = Int_A Then
IsShui = True
Else
IsShui = False
End If
End Function
收起
要用什么语言?