Cod sursa(job #124895)
Utilizator | Data | 20 ianuarie 2008 10:00:10 | |
---|---|---|---|
Problema | Fructe | Scor | 100 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 3, Clasele 5-8 | Marime | 0.44 kb |
var f1,f2:text;
g,t,c1,c0:longint;
begin
assign(f1,'fructe.in');
reset(f1);
assign(f2,'fructe.out');
rewrite(f2);
read(f1,t);
for g:=1 to t do
begin
read(f1,c0,c1);
c1:=c1 mod 2;
if c1=1 then
writeln(f2,1)
else writeln(f2,0);
end;
close(f1);
close(f2);
end.