作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 23:17:02
任意给定正整数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;{不是值为假}
begin
read(n,c);{输入}
for i:=1 to 100000 do{一千次循环}
begin
g:=n*i;{g是乘积}
if ss(g) then begin{判断是不是}
write(i);halt;end;{是就输出;结束}
end;
write('No find!');{如果没有就输出No find!}
end.
望楼主采纳!小弟感谢不尽!