四叶玫瑰数名字由来(四叶玫瑰数vb)

时间:2023-09-23 02:27:10 来源:
导读 您好,现在蔡蔡来为大家解答以上的问题。四叶玫瑰数名字由来,四叶玫瑰数vb相信很多小伙伴还不知道,现在让我们一起来看看吧!1、程序:var ...

您好,现在蔡蔡来为大家解答以上的问题。四叶玫瑰数名字由来,四叶玫瑰数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.输出应该是这样,不懂再追问。

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

标签:
最新文章