免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖
本帖最后由 realnumber 于 2017-11-6 09:46 编辑

编了个小程序,搜索到$F_{90}=7540113804746346429$也不是完全平方。也只有1,2,12三项.再大就溢出了。

var
a,b,c:int64;
i:longint;

begin
a:=1;
b:=1;
for i:=1 to 90 do
  begin
   c:=a+b;
   if c=trunc(sqrt(c))*trunc(sqrt(c)) then write(' ',i+2,' ',c,'  ');
   a:=b;
   b:=c;

  end;
  write(c);
end.

TOP

pascal ,陪儿子一起学

TOP

回复 6# zhcosin

好奇怪,连续那么多符合要求的完全平方数。
你那数据是不是太大,不精确了,

TOP

返回列表 回复 发帖