pascal初学者求助啊!

问题描述：

pascal初学者求助啊!
[j10]水仙花数
Time Limit:1000MS Memory Limit:65536K
Total Submit:57 Accepted:39
Description
求三位水仙花数.
Input
无
Output
输出三位水仙花数.一行一个.
水仙花数是指一个 n 位数 ( n≥3 ),它的每个位上的数字的 n 次幂之和等于它本身.（例如：1^3 + 5^3 + 3^3 = 153）
1^3即1*1*1

1个回答分类：综合 2014-10-25

问题解答：

我来补答

program j10;
const n=3;
var a,b,c:integer;
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*c=a*100+b*10+c then writeln(a,b,c);
end.
主要方法是枚举.a,b,c代表一个三位数百位,十位,个位的数字,判断这三个数字的三次方和与形成的三位数是否相等,相等就是水仙花数

展开全文阅读

上一页：空间几何的直观图

下一页：第2题，谢谢，详细解答