Cod sursa(job #251856)
| Utilizator |  alexandru catalisan basketbalistu92 |
Data | 3 februarie 2009 14:56:21 |
|---|---|---|---|
| Problema | Fructe | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
program fructe;
var p,b,t,i:longint;
begin
assign(input,'fructe.in');reset(input);
assign(output,'fructe.out');rewrite(output);
readln(t);
for i:=1 to t do begin
readln(p,b);
if b mod 2=0 then writeln(0) else writeln(1);
end;
close(input);close(output);
end.