integer::T,i,j
  real*8,parameter::xi=1.0_8,yi=0_8,pi=3.141592653589793238
  real*8,allocatable::xy(:,:,:)
  real*8::x,y,kakudo
  character*20::ans

  read *,T
  allocate (xy(2,6,T))
  read *,xy

  do i=1,T
     do j=1,6
        x = xy(1,j,i)
        y = xy(2,j,i)
        if(ABS(x).lt.0.5000000001.and.ABS(x).gt.0.4999999999 .or. &
             ABS(y).lt.0.0000000001) then
           print '(a)',"0.000000000"
           goto 10
        end if
     end do

     kakudo = MOD(ACOS(ABS(x))/(2*pi)*360.0_8,60.0_8)
     if(kakudo.gt.50.0_8) then
        kakudo = 60.0_8-kakudo
     end if
     write (ans,'(G18.10)'), kakudo
     print '(a)', TRIM(ADJUSTL(ans))
10   continue
  end do
end program