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//如果有一位大于就退出

>>阅读原文<<