四叶玫瑰数编程（四叶玫瑰数的VB怎么编）

关于四叶玫瑰数编程，四叶玫瑰数的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 endend.。

本文分享完毕，希望对大家有所帮助。

Tags：

文章版权声明：除非注明，否则均为供水知识-GONGSHUI.CC原创文章，转载或复制请以超链接形式并注明出处。