program test3;
var
n,x,i,temp,j,count:longint;
begin
readln(n,x);
for i:=1 to n do
begin
temp:=i;
while temp>0 do
begin
j:=temp mod 10;
temp:=temp div 10;
if j=x then inc(count);
end;
end;
writeln(count);
end.
输入：100 5
输出：20