5

5、用REPEAT语句编程找出所有正整数（三位数）中的水仙花数，如：１５３＝１３＋５３＋３３。那么１５３就是水仙花数。（参考答案：153、370、371、407）

 

 

var
  i,g,s,b:integer;
begin
  i:=100;
  repeat
      g:=i mod 10;
      s:=i div 10 mod 10;
      b:=i div 100;
      if i=g*g*g+s*s*s+b*b*b then
        writeln(i);
      i:=i+1
  until i=999;
  readln
end.}
var
  g,s,b:integer;
begin
  for g:=0 to 9 do
    for s:=0 to 9 do
      for b:=0 to 9 do
        if (g*g*g+s*s*s+b*b*b=g+10*s+100*b)and(g+10*s+100*b>99) then
          writeln(g+10*s+100*b);
  readln
end.