ac1047.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 11 行

program tju1047;
var
  t,i,n:longint;
begin
  read(t);
  for i:=1 to t do begin
    read(n);
    writeln(ord(n mod 4 in [1,2]));
  end;
end.