var a,b,c,k,i,q,j,x,d:0..1000000000;
    r:real;
    f,g:text;
begin
assign(f,'cifre.in');
assign(g,'cifre.out');
reset(f);
rewrite(g);
readln(f,a,b,c,k);
for i:=a to b do begin j:=i;   q:=0;
repeat
x:=j mod 10;
j:=j div 10;
if x=c then q:=q+1;
until (j=0) or (q=k);
if q=k then d:=d+1;
end;
writeln(d);
a:=b-a+1;
r:=d/a;
writeln(g,r:5:4);
close(g);
close(f);
end.