导读 关于四叶玫瑰数百科,四叶玫瑰数vb这个问题很多朋友还不知道,今天小六来为大家解答以上的问题,现在让我们一起来看看吧!1、四位数各位上
关于四叶玫瑰数百科,四叶玫瑰数vb这个问题很多朋友还不知道,今天小六来为大家解答以上的问题,现在让我们一起来看看吧!
1、四位数各位上的数字的四次方之和等于本身为四叶玫瑰数。
2、实现源码如下: program roseNumber; var a,b,c,d:longint; function four(n:longint):longint; begin four:=n*n*n*n; end; begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do for d:=0 to 9 do begin if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then begin writeln(a,b,c,d); end end end.。
本文分享完毕,希望对大家有所帮助。
标签:
免责声明:本文由用户上传,如有侵权请联系删除!