会PASCLE语言的请进

来源：百度知道 编辑：UC知道 时间：2024/06/17 02:39:22
在自然数中如果一个三位数等于自身各位数字之立方和，则这个数就是水仙花数。编程求所有的水仙花数

var g,s,b:integer;// 个 十 百 位的数字 百位 1-9 其他可以0-9
rst:string;
begin
for b:=1 to 9 do
begin // 1 FOR
for s:=0 to 9 do
begin // 2 FOR
for g:=0 to 9 do
begin // 3 FOR 循环嵌套 求你的水仙花
if (b*b*b+s*s*s+g*g*g)=(b*100+s*10+g)
then rst:=rst+inttostr((b*100+s*10+g))+',';
end; //3 FOR END
end; // 2 FOR END
end; //1 FOR END

你要的结果:=rst;
end;
结果为153,370,371,407, 自己规划下输出 嗯 贴出来没写的好看, 自动去空格了,看得麻烦 ,标一下吧