数学编程高手的进~~~~~急

来源：百度知道 编辑：UC知道 时间：2024/06/18 17:01:55
一个三位数,如果其各自数字立方和等于该数本身,例如,153是一"水仙花数",因为153=1的三次方+5的三次方+3的三次方,编写程序找出所有的"水仙花数".
你的回答我不懂,能不能写成
INPUT X
~~~~
DO
~~~~
LOOP UNTIL
~~~~~~
PRINT Y
END
的形式

dzlsuperdvd的那个应该是计算机编程吧。

i=100
IF i<1000
DO
i=i+1
LOOP UNTIL i=(i\100)^3 + [(i\10) MOD 10]^3 + (i MOD 10)^3
PRINT i
ELSE
PRINT "no"
END IF
END

注：“\”“MOD”是指做除法之后所得的商和余数。
例如：若i是一个两位数，“i\10”是i除以10的商（即把i的十位取出来），“i MOD 10”是i除以10的余数（即把i的各位取出来）。

这个行吗？我好长时间没看这些知识了，也不知道对不对。

var a,b,c:byte;
Begin
For a:=1 to 9 Do
For b:=0 to 9 Do
For c:=0 to 9 Do
If a*a*a+b*b*b+c*c*f=a*100+b*10+c then
Writeln(a,' ',b,' ',c);
End.
最简单的搜索

解释下1楼的做的是FOR循环。。。

3个FOR的嵌套。。。分别是百位1~9十位0~9个位0~9简单的相乘计算机计算了900次。。。ifxxxxthen 是做的判断。。。如果成立则输出 百位十位个位。。。也就是writein(a,'',b,'',c)，还有就是IF THEN已经要加ENDIF吧？？

2楼做得就比较详细了有备注。。。但是你这个判断在哪我没有看见。。。

起码写个IF THEN吧？？？？？？？( 抱歉没看到UNTIL。。。)