Cod sursa(job #716362)

Utilizator adrianbadBadeaAdrian adrianbad Data 18 martie 2012 17:59:01
Problema Fructe Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.42 kb
program fructe;
var p,b:array[1..100000] 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:=t downto 1 do
  begin
     if p[i]=b[i] then writeln(q,'0')
                  else writeln(q,'1');
  end;
  close(f);
  close(q);
end.