有一行数列，它们是:1 2 3 5 8 13……按此规律。输入一个数，求

level 8

云-梦楼主

有一行数列，它们是:1 2 3 5 8 13……按此规律。输入一个数，求出N以内按此规律的数的和（pascal编程）,急！！

2014年06月14日 12点06分 1

level 13

var f:array[1..100000] of longint;
i,n:longint;
sum:int64;
begin
readln(n);
f[1]:=1;f[2]:=2;
for i:=3 to n do f[i]:=f[i-1]+f[i-2];
sum:=0;
for i:=1 to n do sum:=sum+f[i];
writeln(sum);
end.

2014年06月14日 13点06分 2

level 11

abslime

n过大的话可以用矩阵优化

2014年06月18日 13点06分 3