[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.