四叶玫瑰数的VB怎么编?
的有关信息介绍如下:四位数各位益助胡布衡州原汽侵序这上的数字的四次方之和等360问答于本身为四叶玫瑰数。
实现源码如下:programroseNumber;vara,b,c,d:longint;functionfour(n:longint):longint;beginfour:=n*n*n*n;end;beginfora:=1to9doforb:=0to9doforc:=0to9doford:=0to9dobeginif(1000*a源就+100*b+10*c+d=four(a)+four(稳沉纪定可计书穿同b)+four(c)+four(d))thenbeginwriteln(a,b,c,d);endendend.