Cod sursa(job #275101)

Utilizator andreirulzzzUPB-Hulea-Ionescu-Roman andreirulzzz Data 10 martie 2009 10:57:06
Problema Fructe Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program usor;
var t,f:longint;
begin
assign(input,'fructe.in');
reset(input);
read(input,t);
assign(output,'fructe.out');
rewrite(output);
while t<>0 do begin
    dec(t);
    read(input,f,f);
    if f mod 2=0 then writeln(output,'0')
    else writeln(output,'1');
    end;
close(input);
close(output);
end.