Cod sursa(job #716362)
| Utilizator | 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.
