水仙花数是指一种三位数，其各个数之立方和等于该数。水仙花兄缺滚数共有4个，分别为：153、370、371、407(例如：1^3+5^3+3^3=153)C语言的"水仙花数"实现代码：voidmain(){intge,shi,bai,number;for(number=100;number<1000;number++){bai=number/100;shi=(number%100)/10;ge=number%10;if(number==bai*bai*bai+shi*shi*shi+ge*ge*ge)printf("\nnumber=%d\n",number);}getch();}VisualBasic的"水仙花数"实现代码：PrivateSubForm_Click()Dima,b,cAsInteger'a(个)b(十)c(百)Fora=0To9Forb=0To9Forc=1To9Ifa^3+b^3+c^3=a+10*b+100*cThenMsgBox100*c+10*b+aEndIfNextcNextbNextaEndSubFORTRAN的"水仙花数"实现代码：WRITE(*,30)DO10K=100,999IA=K/100IB=MOD(K,100)/10IC=MOD(K,10)IF(K.NE.IA**3+IB**3+IC**3)GOTO10WRITE(*,20)K,IA,IB,IC10CONTINUE20FORMAT(5X,4I4)30FORMAT(5X,18HN=I**3+J**3+K**3)STOPENDpascal:programshuixianhuashu;vara,b,c:integer;beginfora:=1to9doforb:=0to9doforc:=0to9doifa*a*a+b*b*b+c*c*c=100*a+10*b+cthenwriteln(100*a+10*b+c);用C语言for循环扮颤求解该羡余问题的代码#include"Stdio.h"intmain(void){inta,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",a,b,c);}end
标签：数是,水仙花
