MCOINS - Coins Game

Tác giả: ladpro98

Ngôn ngữ: Pascal

program MCOINS;
uses    math;
const   maxn=1000006;
        fi='';
var     f:array[-1..maxn] of boolean;
        inp:text;
        k,l,m,lim,n,i,j:longint;
begin
        assign(inp,fi);reset(inp);
        readln(inp,k,l,m);
        lim:=0;
        f[0]:=true;
        for j:=1 to m do begin
                read(inp,n);
                if n>lim then begin
                        for i:=lim+1 to n do
                        if f[i-1] or f[max(i-k,-1)] or f[max(i-l,-1)] then
                        f[i]:=false
                        else f[i]:=true;
                        lim:=n;
                end;
                if f[n] then write('B')
                else write('A');
        end;
end.

Download