比赛 20101105 评测结果 TAATAAAAAA
题目名称 Sramoc问题 最终得分 80
用户昵称 maxiem 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-05 21:20:00
显示代码纯文本
program sramoc;
var
	k,m:integer;
	i,j:longint;
	s:int64;
	st:string;
	flag:boolean;
begin
	assign (input,'sramoc.in');
	reset (input);
	readln (k,m);
	close (input);
	assign (output,'sramoc.out');
	rewrite (output);
	for i:=1 to maxlongint do begin
		s:=m*i;flag:=true;
		str(s,st);
		for j:=1 to length(st) do if ord(st[j])-48>=k then begin
			flag:=false;
			break;
		end;
		if flag then begin
			writeln (s);
			close (output);
			halt;
		end;
	end;
	close (output);
end.