四叶玫瑰数c语言编程（四叶玫瑰数vb）

您好,今天帅帅来为大家解答以上的问题。四叶玫瑰数c语言编程，四叶玫瑰数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.。

本文就为大家分享到这里，希望小伙伴们会喜欢。

　　免责声明：本文由用户上传，与本网站立场无关。财经信息仅供读者参考，并不构成投资建议。投资者据此操作，风险自担。 如有侵权请联系删除！