Cod sursa(job #589509)
Utilizator | Data | 12 mai 2011 17:52:02 | |
---|---|---|---|
Problema | Fructe | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
program fructe;
var i,n,b,p,x,y:longint;
fin,fout:text;
begin
assign(fin,'fructe.in'); reset(fin);
assign(fout,'fructe.out'); rewrite(fout);
read(fin,n);
for i:=1 to n do
begin
read(fin,x,y);
b:=b+y;
p:=p+x;
end;
if(b mod 2=1)then
begin
writeln(fout,1);
end
else
begin
writeln(fout,0);
end;
close(fin);
close(fout);
end.