比赛 20101105 评测结果 TAATAAAAAA
题目名称 Sramoc问题 最终得分 80
用户昵称 苏轼 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-05 19:44:49
显示代码纯文本
program sramoc(input,output);

label no;

var
  i,ii,m,k,j,tmp:int64;

begin
  assign(input,'sramoc.in');
  reset(input);
  assign(output,'sramoc.out');
  rewrite(output);

  readln(k,m);
  k:=k-1;
  i:=m;
  repeat
    j:=i;

    while j>0 do
    begin
      tmp:=j mod 10;

      if tmp>k then
        goto no;

      j:=j div 10;
    end;

    writeln(i);
    break;
no:
    i:=i+m;
  until 1=0;

  close(input);
  close(output);
end.