Program HelloWorld(output);
var s: real;
    i: integer;
    
begin

    writeln('vvod chisla');
    read(s); {45,333}

    i := 0;

    while i < 10 do begin // 0 < 10, 1 < 10, 2 < 10, 3 < 10
        if frac(s) > 0 then begin // 0.333 > 0,33 > 0, 0.3 > 0, break
            s := s * 10; // 0.333 * 10, 0.33 * 10, 0.3 * 10,
            i := i + 1; //0 + 1, 1 + 1, 2 + 1,
        end else break;
    end;
    
    write(i);
    
end.