M3TILE - LATGACH3

Tác giả: ladpro98

Ngôn ngữ: Pascal

program m3tile;
var     n,i:longint;
        f:array[0..33] of longint;
begin
        f[0]:=1;
        f[2]:=3;
        for i:=3 to 30 do
        if odd(i) then f[i]:=0
        else f[i]:=4*f[i-2]-f[i-4];
        readln(n);
        while n<>-1 do
        begin
                writeln(f[n]);
                readln(n);
        end;

end.

Download