小弟在这求高手帮下了 — 编程爱好者社区

您所在位置：社区首页 — PASCAL语言讨论区 — 小弟在这求高手帮下了

主题：小弟在这求高手帮下了

djj018 [专家分：0] 发布于 2006-07-21 23:02:00

用pascal编程水仙花数问题

沙发

绿步甲 [专家分：1610] 发布于 2006-07-22 10:46:00

for i:=1 to 999 do
begin
a:=i mod 100;
b:=(i div 10)mod 10;
c:=i div 100;
if a*a*a+b*b*b+c*c*c=i
then writeln(i);
end;

板凳

编程黑客 [专家分：1660] 发布于 2006-07-22 15:03:00

for i:=1 to 999 do
begin
a:=i mod 100;
b:=(i div 10)mod 10;
c:=i div 100;
if a*a*a+b*b*b+c*c*c=i
then writeln(i);
end;

加分

您尚未登录，请登录后再回复。点此登录或注册