记着

这道题里

只有int64才是王道

......

本人因为太钟情于longint

挂了4次

~~~

血的教训！！！

#include

var

m,n,k,t:int64;

begin

readln(k);

m := 1;

n := 1;

repeat

t := m+n;

if tk;

writeln(m*m+n*n);

end.

要开到int64

为什么是斐波那契数列呢？

RP特别不好，话说楼下的dsdgzy是以前的我的号

上次就是用了longint出错，这次还是longint，输出了负值……

咋就不长记性呢……

今天做的大多数题都没有AC，强烈说明我最近的状态太不好

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

比k小的最大的相邻两个斐波那契数,MS

好道数学题……

(n^2-mn-m^2)^2=1

(m^2+mn-n^2)^2=1

(m(m+n)-n^2)^2=1

((n+m-n)(m+n)-n^2)^2=1

((m+n)^2-n(m+n)-n^2)^2=1

于是 fib……

fjxmlhx: 很抱歉

~

这个题目的注释我看过~

是管理员放错的~

如对本题有疑问可以参看我的题解：http://xujieqi.blog.hexun.com/35722312_d.html

这道题

和FIB有什么关系?

自己think

大家可以看yxy的证明

所有变量都要用qword

Var k:qword;

m,n,mm:int64;

ans:qword;

Begin Readln(k);

m:=1;

n:=1;

mm:=m;

while (m+n)

又知道了一个ＦＩＢ的性质

确实 出题者很厚道...

FX是我刚接触oi的地方...

这题。。。当年我第一年学NOIP的时候就有他 FIBONACCI打表即可

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

这是一道典型的数学题，化简一下就是个斐波那契数列。注意，要用int64暴力解决。

无语，第一次程序错了，第二次超时，第三次才AC。。。。。。。。。。

建议用斐波那契，快啊。。。。

var

i,j,k:longint;

n,m,l:qword;

begin

readln(k);

m:=1;

n:=1;

while n

打表就知道规律了

Var

F:array [1..10000] of real;

i:longint;

k:real;

begin

read(k);

F[1]:=1;

F[2]:=1;

i:=2;

repeat

i:=i+1;

F[i]:=F+F;

Until F>=k;

If F[i]

斐波那契

program p1543;

var i,j,k,l,m,n,o,p,q,r,sum,ans:int64;

begin

readln(k);p:=1;q:=1;r:=2;

while r