[Pascal][简单题]兔子繁殖问题

没事刷水题听说对身体有益~

问题 E: 兔子繁殖问题
题目描述
已知有一对兔子，每个月可以生一对兔子，而小兔子一个月后又可以生一对小兔子（比如：2月份出生的小兔子4月份可以生育）。既兔子的对数为：第一个月1对，第二个月2对，第三个月3对，第四个月5对.....假设兔子的生育期为两年，且不死。那么问题来了，你能说出每个月的兔子数么？
输入
输入一个数n，表示第n个月，1<=n<=24。
输出
输出这个月兔子的数目。
样例输入
4

样例输出

5

提示

打了3分钟，其实就是模拟斐波那契数列

var n,i:longint;
a:array[1..24]of longint;
begin
readln(n);
n:=n+1;
a[1]:=1;a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
writeln(a[n]);
end.