MCOINS - Coins Game
Tác giả: flashmt
Ngôn ngữ: Pascal
const fi='';
fo='';
maxn=1000000;
var n,x,y,max,i:longint;
p:array[0..maxn+10] of boolean;
a:array[1..200] of longint;
procedure rf;
begin
assign(input,fi);
reset(input);
readln(x,y,n);
max:=0;
for i:=1 to n do
begin
read(a[i]);
if a[i]>max then max:=a[i];
end;
close(input);
end;
procedure pr;
begin
p[0]:=true; p[x]:=false; p[y]:=false;
for i:=1 to x-1 do p[i]:=not p[i-1];
for i:=x+1 to y-1 do p[i]:=not (p[i-1] or p[i-x]);
for i:=y+1 to max do p[i]:=not (p[i-1] or p[i-x] or p[i-y]);
end;
procedure wf;
begin
assign(output,fo);
rewrite(output);
for i:=1 to n do
if p[a[i]] then write('B') else write('A');
close(output);
end;
begin
rf;
pr;
wf;
end.