Cod sursa(job #295067)

Utilizator costyv87Vlad Costin costyv87 Data 2 aprilie 2009 22:55:18
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
{0,7}
{3,1}
{2,1}
{1,1}
{0,1}

{0,8}
{}

var f,g:text;
    t,i,p,b:longint;
begin
assign(f,'fructe.in'); reset(f);
assign(g,'fructe.out'); rewrite(g);
read(f,t);
for i:=1 to t do begin
read(f,p,b);
{p:=p-(b*(p div b));}
p:=0;
if b mod 2=0 then writeln(g,0)
             else writeln(g,1);
end;
close(g);
end.