ac1005.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 16 行

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.