Cod sursa(job #589505)
Utilizator | Data | 12 mai 2011 17:47:49 | |
---|---|---|---|
Problema | Fructe | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
program fructe;
var i,n,b,p: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
read(fin,b,p);
if(b mod 2=1)then
begin
writeln(fout,1);
writeln(fout,0);
end
else
begin
writeln(fout,0);
writeln(fout,1);
end;
close(fin);
close(fout);
end.