2017.6.4测试 题一 k好数

var s:string; n,k,i,j,t,p,ans:longint;begin readln(n,k); for i:=1 to n do  begin   p:=0;   str(i,s);   for j:=1 to length(s) do//每一位    if ord(s[j])-48>k then begin//如果有一位大于就退出                            p:=1;//标记                            break;                           end;   if p=0 then inc(ans);//没有就加1  end; writeln(ans);end.