查人人中国名人网国产自行车代理商:求“水仙花数字”算法是什么
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 22:13:42
水仙花数是一个三位数，它的
各位数的立方和正好等于该数本身如：153=1*1*1+5*5*5+3*3*3。请设计算法求解所有水仙花数
各位数的立方和正好等于该数本身如：153=1*1*1+5*5*5+3*3*3。请设计算法求解所有水仙花数
Dim i As Integer
i = 100
Do While i < 1000
If i = CInt(Mid(i, 1, 1)) ^ 3 + CInt(Mid(i, 2, 1)) ^ 3 + CInt(Mid(i, 3, 1)) ^ 3 Then
Print i & vbCrLf
End If
i = i + 1
Loop
运行结果：
153
370
371
407
main()
{
int ge,shi,bai,number; /*定义个位，十位，百位*/
for(number=100;number