TBC1237 Pascal

var
    k,i,code,x:longint;
    p,tu,mau:int64;
    s,stu:string;

function gcd(a,b:int64):int64;
var t:int64;
begin
    while b>0 do
       begin
           t:=a mod b;
           a:=b;
           b:=t;
       end;
    exit(a);
end;


begin    
    assign(input,'tbc1237.inp');reset(input);
    assign(output,'tbc1237.out');rewrite(output);
    readln(s);
    x:=pos('.',s);
    stu:=s;
    delete(stu,x,1);
    val(stu,tu,code);
    k:=length(s)-x;
    mau:=1;
    for i:=1 to k do
        mau:=mau*10;
    p:=ucln(tu,mau);
    writeln(mau div p);
end.