Cod sursa(job #716414)

Utilizator adrianbadBadeaAdrian adrianbad Data 18 martie 2012 19:19:07
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.87 kb
program fructe;
var p,b:array[1..100] of int64;
    f,q:text;
    t,i,x,y:longint;
begin
assign(f,'fructe.in');
reset(f);
assign(q,'fructe.out');
rewrite(q);
readln(f,t);
for i:=1 to t do
 begin
    read(f,x,y);
    p[i]:=x;
    read(f);
    b[i]:=y;
 end;
for i:=1 to t do
 begin
    while b[i]>0 do
     begin
        if p[i]>1 then p[i]:=p[i]-2
                  else if b[i]>1 then b[i]:=b[i]-2
                                 else begin p[i]:=p[i]-1;
                                            b[i]:=b[i]-1;
                                 end;
        if (p[i]=0)and(b[i]=0) then b[i]:=b[i]+1
                               else if p[i]>b[i] then p[i]:=p[i]+1
                                                 else p[i]:=p[i]+1;
     end;
    if (p[i]>0) then writeln(q,'0')
                else writeln(q,'1');
 end;
close(f);
close(q);
end.