M3TILE - LATGACH3
Tác giả: ll931110
Ngôn ngữ: Pascal
Program M3TILE;
Var
n: integer;
F: array[0..30] of longint;
Procedure solve;
Var
i,k: integer;
Begin
Fillchar(F, sizeof(F), 0);
F[0]:= 1;
For i:= 2 to 30 do
Begin
F[i]:= F[i - 2] * 3;
k:= i - 4;
While k >= 0 do
Begin
F[i]:= F[i] + F[k] * 2;
k:= k - 2;
End;
End;
End;
Begin
solve;
Repeat
Readln(n);
If n <> -1 then writeln(F[n]);
Until n = -1;
End.