您好,現(xiàn)在蔡蔡來為大家解答以上的問題。四葉玫瑰的英文，四葉玫瑰數(shù)vb相信很多小伙伴還不知道,現(xiàn)在讓我們一起來看看吧！

1、程序：var? i,k,x:longint;begin? for i:=1000 to 9999 do//枚舉所有的四位數(shù)，因?yàn)槊倒寤〝?shù)一定是四位數(shù)? ? begin? ? ? k:=0;? ? ? x:=i;? ? ? while x>0 do? ? ? ? begin? ? ? ? ? k:=k+sqr(sqr(x mod 10));//這里可能太快了。

2、這樣子，設(shè)n表示目前x的各位，則n的四次方為n*n*n*n，而sqr為求平方數(shù)，所以sqr(sqr(n))=sqr(n*n)=n*n*n*m。

3、將結(jié)果累加到k上比較? ? ? ? ? x:=x div 10;//截去當(dāng)前的個位? ? ? ? end;//以上為求該數(shù)每一位數(shù)字4次方之和，掃描就是從個位到千位的順序? ? ? if k=i then writeln(i);//相等就輸出? ? end;end.輸出應(yīng)該是這樣，不懂再追問。

本文就為大家分享到這里，希望小伙伴們會喜歡。