MCOINS - Coins Game

Tác giả: ll931110

Ngôn ngữ: Pascal

Program MCOINS;
        Const
                input  = '';
                output = '';
        Var
                    F: array[-10..1000000] of boolean;
                    n: array[1..50] of longint;
                k,l,m: longint;

Procedure init;
          Var
                fi: text;
                 i: longint;
          Begin
                Assign(fi, input);
                        Reset(fi);
                        Readln(fi, k, l, m);
                        For i:= 1 to m do read(fi, n[i]);
                Close(fi);
          End;

Procedure optimize;
          Var
                i: longint;
          Begin
                For i:= -10 to -1 do F[i]:= true;
                F[0]:= false;

                For i:= 1 to 1000000 do
                        F[i]:= not F[i - 1] or not F[i - k] or not F[i - l];
          End;

Procedure solve;
          Var
                fo: text;
                 i: longint;
          Begin
                Assign(fo, output);
                        Rewrite(fo);
                        For i:= 1 to m do if F[n[i]] then write(fo, 'A') else write(fo, 'B');
                Close(fo);
          End;

Begin
        init;
        optimize;
        solve;
End.

Download