Question

pascal编程求出100~999之间所有水仙花数.急！

快啊。。。。

Answer 1

program sxh;
var a,b,c,d:integer;
begin
for a:=100 to 999 do begin
b:=a mod 10;
c:=a mod 100 div 10;
d:=a div 100;
if b*b*b+c*c*c+d*d*d=a then writeln(a);
end;
end.
方法二:
program sxh;
var a,b,c,d:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do begin
d:=100*a+10*b+c;
if b*b*b+c*c*c+a*a*a=d then writeln(d);
end;
end.
对过程有什么不懂,请尽管提出来。
http://baike.baidu.com/edit/id=152077这里也有

Answer 2

水仙花数是指一个n(>=3)位数字的数,它等于每个数字的n次幂之和。

program lt;
var i,a,b,c,s:integer;
begin
for i:=100 to 999 do
begin
a:=i mod 100;
b:=(i-a) div 10 mod 10;
c:=i div 100;
s:=a*a*a+b*b*b+c*c*c;
if s=i then writeln(i);
end;
end.