program ideone;
var i: byte;
    a: Real;
    b: Real ;
begin
	i:=101;
	b:=1;
	a:=i ; 
while  a-b > 0.001  do
  begin
    a:= (a+b)/2 ;
    b:= i/a ; 
    writeln( a );
  end
end.