program  problem_1001;
  var a : array[1..1000000]of int64;
   (*-----------------------------------------------*)
   procedure import;
   var i : longint;
       n : longint;
   begin
        n := 0;
        while not seekeof do
              begin
                   inc(n);
                   read(a[n]);
              end;
        for i := n downto 1 do writeln(sqrt(a[n]):0:4);
   end;
   (*-----------------------------------------------*)
   Begin
        import;
   End.