Cod sursa(job #866861)

Utilizator lolmanDomuta Dariu lolman Data 28 ianuarie 2013 20:27:05
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.88 kb
var f,g:text;
    p,b,ps,bs,k,t,pss:integer;
begin
assign(f,'fructe.in');reset(f);
assign(g,'fructe.out');rewrite(g);
readln(f,t);
repeat
    k:=k+1;
    read(f,p);
    readln(f,b);
    ps:=p;
    bs:=b;
    while (ps<>0) and (bs<>0) do
       begin
        pss:=ps;
        if (ps=1) and (bs=1) then
          begin
           bs:=1;
           ps:=0;
           break;
          end;
        if bs mod 2=0 then
          begin
            bs:=0;
            break;
          end
                      else
             begin
              if ps mod 2=0 then
                 begin
                  ps:=0;
                  break;
                 end;
              ps:=ps mod 2+ pss div 2+bs div 2;
              bs:=1;
             end;
       end;
    if ps>=1 then writeln(g,0);
    if bs>=1 then writeln(g,1);
until k=t;
close(f);
close(g);
end.