導(dǎo)讀 關(guān)于四葉玫瑰數(shù)百科，四葉玫瑰數(shù)vb這個(gè)問題很多朋友還不知道，今天小六來為大家解答以上的問題，現(xiàn)在讓我們一起來看看吧！1、四位數(shù)各位上
關(guān)于四葉玫瑰數(shù)百科，四葉玫瑰數(shù)vb這個(gè)問題很多朋友還不知道，今天小六來為大家解答以上的問題，現(xiàn)在讓我們一起來看看吧！
1、四位數(shù)各位上的數(shù)字的四次方之和等于本身為四葉玫瑰數(shù)。
2、實(shí)現(xiàn)源碼如下： 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.。
本文分享完畢，希望對(duì)大家有所幫助。
標(biāo)簽：
免責(zé)聲明：本文由用戶上傳，如有侵權(quán)請(qǐng)聯(lián)系刪除！