例65当一个数各个数位的立方和等于这个数本身时,称这样的 数为水仙花数(如153=1**3+5**3+3**3,所以,153是一个水仙 花数,)编程:求100~999间的水仙花数。 分析:设计一个函数子程序NUMN,),当l=100时,函数NUM 返回N的百位上的数;当|=10时,NUM返回N的十位上的数,1=1 时,NUM返回N的个位上的数。主程序中调用NUM函数在 100~99之间找出所有水仙花数 PROGRAM FLOWER DO|=100999 F(NUM(,100)*3+NUM(10)*3+NUM(1)**3=)THEN WRTE(米,*) ENDIF ENDDO END例 6.5 当一个数各个数位的立方和等于这个数本身时，称这样的 数为水仙花数(如153=1**3+5**3+3**3，所以，153是一个水仙 花数，)编程：求100~999之间的水仙花数。 分析：设计一个函数子程序NUM(N，I)，当I=100时，函数NUM 返回N的百位上的数；当I=10时，NUM返回N的十位上的数，I=1 时，NUM返回N的个位上的数。主程序中调用NUM函数在 100~999之间找出所有水仙花数。 PROGRAM FLOWER DO I=100,999 IF (NUM(I,100)**3+NUM(I,10)**3+NUM(I,1)**3==I) THEN WRITE(*,*)I ENDIF ENDDO END