ac1005.pas

某牛人写的acm.tongji.edu.cn上大部分ac的代码,仅供学习研究,请不要用来作弊

program tju1005;
const
  maxn=50;
var
  a:array[-1..maxn]of longint;
  i:byte;
begin
  a[1]:=1;
  for i:=2 to maxn do
    a[i]:=a[i-1]+a[i-3];
  repeat
    read(i);
    writeln(a[i]);
  until seekeof;
end.