program squarerootoftwo(output);
   var
    a,r,s,d:integer; 
   begin
    write('1.');
    a := 1;
    r := 1;
    while true do
     begin
      s := r * 100;
      d := 9;
      while d*(20*a+d) > s do
       d := d - 1;
      write(d:1);
      r := s - d*(20*a+d);
      a := 10*a + d;
     end;
   end.