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.

Download