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.