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.

Download