求Pascal水仙花数程序

求Pascal水仙花数程序

program shuixianhuashu;
　　var
　　a,b,c:integer;
　　begin
　　for a:=1 to 9 do
　　for b:=0 to 9 do
　　for c:=0 to 9 do
　　if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(100*a+10*b+c);
　　end.
　　或:
　　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 abcd;
　　var
　　a,b,c,i,t:integer;
　　begin
　　i:=100;
　　repeat
　　a:=trunc(i/100);
　　b:=trunc(i/10)-a*10;
　　c:=i-trunc(i/10)*10;
　　t:=a*a*a+b*b*b+c*c*c;
　　if i=t
　　then writeln(i,'=',a,'^3+',b,'^3+',c,'^3');
　　i:=i+1
　　until i>999
　　end.

官网上的： 　　var 　　a,b,c:integer; 　　begin 　　for a:=1 to 9 do 　　for b:=0 to 9 do 　　for c:=0 to 9 do 　　if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(100*a+10*b+c); 　　end.

program ex01; var n, i, a, b, c, s: longint; begin for i := 100 to 999 do begin a := i mod 10;//分离个位 b := i div 10 mod 10;//分离十位 c := i div 100;//分离百位 s := a * a * a + b * b * b + c * c * c;//水仙花数 if s = i then writeln(s);//输出 end; readln; end.