Cod sursa(job #124895)

Utilizator ProtomanAndrei Purice Protoman 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.