program DtoB;
var
  a,n:real;
  s1,s2:string[20];p:string;
  i,j,m,t:integer;
begin
  readln(a);
  m:=trunc(a);
  n:=a-trunc(a);

  i:=0;
  repeat
    i:=i+1;
    if m mod 2=1 then s1[i]:='1' else s1[i]:='0';
    m:=m div 2;
  until m=0;

  j:=0;
  repeat
    j:=j+1;
    if n*2 >=1 then s2[j]:='1' else s2[j]:='0';
    n:=n*2-trunc(n*2);
  until (n=0) or (j=10);

  for t:=i downto 1 do
    write(s1[t]);
  write('.');

  for t:=1 to j do
    write(s2[t]);
  writeln;
end.