2 计算三个数的立方和3 与原值比较，如相等则是要输出所有水仙花数，需要1 对所有三位数，即100到999遍历2 对每个数判断是否为水仙花数，如是则退出当循环结束，所有的水仙花数就输出成功了代码如下int is；所谓的水仙花数梅花数是指在三位整数100到999之间中，百位数十位数个位数的立方和等于它本身，如153=1^3+5^3+3^3程序代码如下Private Sub Command1_ClickDim i As Integer， s As Integer Dim a；if size == 0 size=0输出第一个水仙花数 printfquot%dquot， i else size++输出第二第n个水仙花数 printfquot %dquot， i size++ 个数++ if size == 0 范围。
Private Sub Command2_Click #39水仙花数 153=1*1*1+5*5*5+3*3*3For i = 10 To 999If i lt 100 Then ge = i Mod 10 shi = i \ 10 If ge ^ 3 + shi ^ 3 = i Then Print ，Else ge = i Mod；计算三个数的立方和3 与原值比较，如相等则是要输出所有水仙花数，需要1 对所有三位数，即100到999遍历2 对每个数判断是否为水仙花数，如是则退出当循环结束，所有的水仙花数就输出成功了代码如下int is；1首先需要打开Devc++软件，点击“新建源代码”2然后按照如图所示填写代码3其中a表示的是水仙花数的百位数，b表示的是水仙花数的十位数，c表示的是水仙花数的个位数，sum表示的是所有累加下来的水仙花数4if。
之间可能有解的部分，先测出其数字的位数n，再分离数字的各位，求各位数字的n次方的和便是结果具体操作可先将要判断的数字转换为数字字符串，这样求其；VB实现水仙花数的程序代码如下PrivateSubCommand_ClickFornum=100To999 a=numMod10 b=num\10Mod10 c=num\100 Ifa^3+b^3+c^3=numThenPrintnum Nextnum EndSub 实现具体步骤如下1启动VB程序，新建一个标准的e。
现给一种简单的求水仙花数的代码，自创的x=09y=xz=xx，y，z=meshgridx，y，zu=x^3+y^3+z^3100*x10*yzk=findu==0x~=0w=xk#39yk#39zk#39sxhs=100*w1；方法先弄懂什么是水仙花数水仙花数是指一个n=3位数字的数，它等于每个数字的n次幂之和3位水仙花数先定义3个数其中一个为1－－92个为0－－9用for循环再用如果a定义为1－－9那么用100*a来。
scanfquot%dquot，n输入你想要的数据，这个是判断三位数的i=n100j=n10i*10k=n%10上面i，j，k，是分别获取百位，十位，各位，上的数字ifn==i*i*i+j*j*j+k*k*k判断是不是水仙花数；所谓的“水仙花数”是指一个三位数其各位数字的立方和等于该数本身，例如153是“水仙花数”，因为153 = 1^3 + 5^3+ 3^3 下面是完整的C语言编程代码运行结果result is153 370 371 407；Thenn = n + 1If n Mod 5 = 0 Then Print a b cElsePrint a b c，End IfEnd IfNext cNext bNext aPrint Chr13 Chr13 quot三位数中水仙花数个数为quot n最后运行这样就完成了。
水仙花数是指一种三位数，其各个数之立方和等于该数水仙花数共有4个，分别为153370371407 例如1^3 + 5^3 + 3^3 = 153 c语言的quot水仙花数quot实现代码include int mainvoid int a，b，cfor；int main int a， b， c， dfor a = 100 a lt 1000 a++ b = a 100c = a % 100 10d = a % 100 % 10if b*b*b + c*c*c + d*d*d == aprintfquot水仙花数为%d\nquot。
