Cod sursa(job #137095)
| Utilizator | Data | 16 februarie 2008 21:37:46 | |
|---|---|---|---|
| Problema | Fructe | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.46 kb |
program NOD_SOFTWARE;
var a,b:longint;
t,i,j:integer;
fin,fout:text;
{*-----------------------------*}
{*-------------MAIN------------*}
begin
assign(fin,'fructe.in'); reset(fin);
assign(fout,'fructe.out'); rewrite(fout);
readln(fin,t);
for i:=1 to t do
begin
readln(fin,a,b);
if b mod 2 = 1 then writeln(fout,1)
else writeln(fout,0);
end;
close(fin);
close(fout);
end.