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

>>阅读原文<<