uses crt;
var s,tu,mau,b:real;
begin
readln(s);    
b:=1;
while frac(s)<>0.0 do begin  b:=b*10; s:=s*10; end;
tu:=s; mau:=b;            
while s<>b do
        if s>b then s:=s-b else b:=b-s;
write(tu/b:6:0,'/',mau/b:6:0); 
readln
end.