var a,b,nr,c,k,i:longint;
f,g:text;
function ok(i:integer):boolean;
var nr2:longint;
begin
nr2:=0;
while i<>0 do begin
        if i mod 10=c then begin
                inc(nr2);
                i:=i div 10;
        end
        else
        i:=i div 10;
end;
if nr2>=k then
        ok:=true
else
        ok:=false;
end;
begin
assign(f,'cifre.in');reset(f);
assign(g,'cifre.out');rewrite(g);
readln(f,a,b,c,k);
nr:=0;
for i:=a to b do
        if ok(i) then
                inc(nr);
writeln(g,nr/(b-a+1):0:4);
close(g);
end.