MCOINS - Coins Game
Tác giả: khuc_tuan
Ngôn ngữ: Pascal
// {$APPTYPE CONSOLE}
{$mode delphi}
var
f : array[1..3] of integer;
g : array[0..1000000] of boolean;
ok : boolean;
n, i, j : integer;
begin
f[1] := 1;
read( f[2], f[3], n);
g[0] := true;
for i:=1 to 1000000 do
begin
ok := false;
for j:=1 to 3 do
if (i >= f[j]) and (g[i-f[j]]) then
ok := true;
g[i] := not ok;
end;
for i:=1 to n do
begin
read(j);
if g[j] then write('B')
else write('A');
end;
end.