四叶玫瑰数vb程序(四叶玫瑰数vb)
2023-07-10 20:50:23
•
来源:
导读 大家好,今天小六子来为大家解答以下的问题,关于四叶玫瑰数vb程序,四叶玫瑰数vb这个很多人还不知道,现在让我们一起来看看吧!1、程序:va...
大家好,今天小六子来为大家解答以下的问题,关于四叶玫瑰数vb程序,四叶玫瑰数vb这个很多人还不知道,现在让我们一起来看看吧!
1、程序:var i,k,x:longint;begin for i:=1000 to 9999 do//枚举所有的四位数,因为玫瑰花数一定是四位数 begin k:=0; x:=i; while x>0 do begin k:=k+sqr(sqr(x mod 10));//这里可能太快了。
2、这样子,设n表示目前x的各位,则n的四次方为n*n*n*n,而sqr为求平方数,所以sqr(sqr(n))=sqr(n*n)=n*n*n*m。
3、将结果累加到k上比较 x:=x div 10;//截去当前的个位 end;//以上为求该数每一位数字4次方之和,扫描就是从个位到千位的顺序 if k=i then writeln(i);//相等就输出 end;end.输出应该是这样,不懂再追问。
本文分享完毕,希望对你有所帮助。
免责声明:本文由用户上传,如有侵权请联系删除!