ac1046.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 12 行

program tju1046;
var
  t,i,n,u,v,w,x,y,z:longint;
begin
  read(t);
  for i:=1 to t do begin
    read(n,u,v,w,x,y,z);
    if odd(n) and odd(u+v+w) and odd(x+y+z) or
       not odd(n) and odd(u+v+w+x+y+z) then writeln('Yes') else writeln('No');
  end;
end.