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.