(3)shuixianhuashu.pas

来自「计算水仙花数（x^3+y^+z^3=x+y+z)3的程序.」· PAS 代码 · 共 19 行

program practice(input,output);
  var a,c,x,y,z:integer;
begin
  c:=0;
  for x:=1 to 9 do
    for y:=0 to 9 do
      for z:=0 to 9 do
        begin
          a:=x*x*x+y*y*y+z*z*z;
          if (z div 1000=0)
            then if (a div 100=x) and ((a mod 100)div 10=y) and (a mod 10=z)
                   then
                     begin
                       writeln(a);
                       c:=c+1
                     end;
        end;
  writeln('They are ',c,' numbers.')
end.