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.

Download