Cod sursa(job #819868)
| Utilizator |  Rotar Rares rotarrares |
Data | 19 noiembrie 2012 19:55:44 |
|---|---|---|---|
| Problema | Fructe | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.24 kb |
var f,g:text;i,t:byte;m,n:longint;
begin
assign(f,'fructe.in');reset( f);
assign(g,'fructe.out');rewrite(g);
readln(f,t);
For i:=1 to t do
begin
readln(f,m,n);
if n mod 2 = 0 then
writeln(g,'1') else writeln(g,'0');
end;
close(f);
close(g);
end.