什么是水仙花数？

水仙花数是指一个n(>=3)位数字的数,它等于每个数字的n次幂之和。 在1000以内的水仙花数共有4个，分别为：153、370、371、407 四位的水仙花数1634，8208，9474 以下为在和种编程语闷芹言中实现求取水仙花数的方法。 ( 例如：1^3 + 5^3 + 3^3 = 153 ) PHP“水仙花数”实现代码： C语言的"水仙花数"实现代码： #include int main(void) { int a,b,c; for(a=1;a<=9;a++) for(b=0;b<=9;b++) for(c=0;c<=9;c++) if(100*a+10*b+c==a*a*a+b*b*b+c*c*c) printf("%d%d%d\n",a,b,c); return 0; } 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. Visual Basic的"水仙花数"实现代码： Private Sub Form_Click() Dim a, b, c As Integer 'a(个)b(十)c(百) For a = 0 To 9 For b = 0 To 9 For c = 1 To 9 If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a End If Next c Next b Next a End Sub FORTRAN的"水仙花数"实现代码： WRITE(*,30) DO 10 K=100,999 IA=K/100 IB=MOD(K,100)/10 IC=MOD(K,10) IF(K.NE.IA**3+IB**3+IC**3) GOTO 10 WRITE(*,20)K, IA,IB,IC 10 CONTINUE 20 FORMAT(5X,4I4) 30 FORMAT(5X,18HN=I**3+J**3+K**3) STOP END C++编译器上的水姿罩前仙花数实现代码 #include using namespace std; void main() { int a=100; int q,w,e; for(a;a<1000;++a) { q=a/100; w=(a-q*100)/10; e=(a-q*100-w*10); if(a==q*q*q+w*w*w+e*e*e) cout<

标签：水仙花