Cod sursa(job #1199760)
| Utilizator |  Valentin Valeanu valen.valentin |
Data | 20 iunie 2014 15:44:27 |
|---|---|---|---|
| Problema | Fructe | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.28 kb |
program fructe;
var
n,m,k,i:longint;
f1,f2:text;
begin
assign (f1,'fructe.in');
assign (f2,'fructe.out');
reset (f1);
rewrite (f2);
readln (f1,k);
for i:=1 to k do begin
readln (f1,n,m);
if m mod 2=0 then writeln (f2,1) else
writeln (f2,0);
end;
close (f1);
close (f2);
end.