点这里查看
讨论 / 求标程（最好cheat）
desprado2 2013-04-27 04:23:00
点我顶贴 收藏 删除
RT,老过不了。
#1 thl@2012-01-30 23:40:00
回复 删除
给分吧！

程序：var

i,n:longint;

a:Array[1..40] of longint;

begin

readln(n);

a[1]:=1; a[2]:=1;

for i:=3 to 40 do

a[i]:=a[i-1]+a[i-2];

for i:=40 downto 1 do

if a[i]<=n then begin

writeln(a[i-1],' ',a[i]);

break;

end;

end.

这个其实就是Fabonacci数列，推出来的，拜托给点分吧！

#2 desprado2@2012-01-31 05:42:00
回复 删除
涨点RP

你那过不了！

#3 thl@2012-01-31 06:12:00
回复 删除
回复 板凳desprado2 的帖子

大哥，谁说我的过不了？

#4 thl@2012-01-31 06:27:00
回复 删除
给你数据吧！这样能分了吧？

测试结果1：k=9574 m=4181 n=6765

测试结果2: k=8573 m=4181 n=6765

测试结果3: k=24485746 m=14930352 n=24157817

测试结果4: k=10475937 m=5702887 n=9227465

测试结果5: k=100000 m=46368 n=75025

#5 灰天飞雁@2012-01-31 07:02:00
回复 删除
回复 楼主desprado2 的帖子

楼主你最近给我注意点……

#6 desprado2@2012-01-31 19:30:00
回复 删除
回复 地下室灰天飞雁 的帖子

明白了。之前的抄袭问题我感到惭愧，呃…………

#7 desprado2@2012-01-31 19:34:00
回复 删除
回复 地下室灰天飞雁 的帖子

还有个问题。各种被封号的原因（如抄袭、使用不文明语言等）中，其原则是什么？（就是怎样会被封号，封几次号就无法解封？）

#8 desprado2@2012-01-31 19:35:00
回复 删除
回复 地下室灰天飞雁 的帖子

你应该知道吧？？

#9 thl@2012-01-31 20:19:00
回复 删除
lz你咋给分不给完哪？

给完给我吧！~~反正你都悬赏出去了，况且我给了你程序和数据······

#10 desprado2@2012-01-31 23:52:00
回复 删除
回复 地核thl 的帖子

做人要厚道，如果是斐波那契数列的话，我早过了！

别以为我什么都不会！

状态: Unaccepted

测评机： Xeost[5]

得分： 0分

提交日期： 2012-2-1 15:48:00

有效耗时： 该状态没有记录

查看更多回复
提交回复