program doi_xung;

var f,g:text;

     x:string;

     n,i:integer;

{---Ham-doi-xung---}

function ktdx(s:string):boolean;

var j:byte;

     st:string;

begin

       st:='';

       for j:=length(s) downto 1 do

              st:=st+s[i];

       if s=st then exit(true) else exit(false);

end;

{---Chuong-trinh-chinh---}

BEGIN

       Assign(f,'SYMMETRY.INP');  reset(f);

       Assign(g,'SYMMETRY.OUT');  rewrite(g);

       readln(f,n);

       for i:=1 to n do 

              begin

                     readln(f,x);

                     if ktdx(x) then writeln(g,1) else writeln(g,0);

              end;

       close(f);  close(f);

end.

var f1, f2: text;

      i, n: word;

      s: string;

Function kt(a: string): boolean;

   Var j: byte;

   Begin

       For j:=1 to (length(a) div 2) do

            If a[j]<>a[length(a)-j+1] 

                Then exit(false);

       Exit(true);

   End;

Begin

    Assign(f1, 'symmetry.inp'); reset(f1);

    Assign(f2, 'symmetry.out'); rewrite(f2);

    Readln(f1, n);

    For i:=1 to n do

       Begin

           Readln(f1, s);

           If kt(s)=true then writeln(f2, 1)

           Else writeln(f2, 0);

       End;

    Close(f1); close(f2);

End.