任意给定正整数n、c,找一个正整数m,使m*n的值的数字由0、1、2、……、C( 0 < C

program ling;var i:longint;g,n,c:qword;{越大越好}function ss(i:qword):boolean;var j:longint;s,d:set of 0。。9;{设s,d两个集合}begin s:=[];{初始集合为空}for j:=0 to c do s:=s+[j];d:=s;{把集合s给集合d}while i0 do begin{如果I不等于零}if not(i mod 10 in d) then begin ss:=false;exit;end;{判断 最后一位是否在集合中}s:=s-[i mod 10];{减去最后一位}i:=i div 10;{I将最后一位舍去}end; if s=[] then ss:=true{如果集合为空i值为真}else ss:=false;end;{不是值为假}beginread(n,c);{输入}for i:=1 to 100000 do{一千次循环}beging:=n*i;{g是乘积}if ss(g) then begin{判断是不是}write(i);halt;end;{是就输出；结束}end;write('No find!');{如果没有就输出No find!}end。望楼主采纳!小弟感谢不尽!