Program HelloWorld(output);
var b: integer;

function h(s: real): real;
var i: integer;
begin
    i := 0;
    h := 1;
    while i < 10 do begin
        if frac(s) > 0 then begin
            s := s * 10;
            i := i + 1;
            h *= 0.1;
        end else break;
    end;
end;

{function ex(a: integer): integer;
var b: integer;
begin
    read(b);
    ex := a + b;
end;}

begin
    
    writeln(h(5.034):0:5);
    writeln(num_of_frac(3.3333):2);
    
    {write(ex(2));}
end.