比赛 20101105 评测结果 WAATAAAAAA
题目名称 Sramoc问题 最终得分 80
用户昵称 belong.zmx 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-11-05 20:10:39
显示代码纯文本
program sramoc(input,output);
var
 a:array[1..100]of integer;
 k,m:longint;
 i,ans:longint;

function judge(x:longint):boolean;
var
 i:longint;
 s:string;
begin
 judge:=true;
 str(x,s);
 for i:=1 to length(s) do
  if ord(s[i])-ord('0')>=k then
  begin
   judge:=false;
   exit;
  end;
end;

begin
 assign(input,'sramoc.in');
 reset(input);
 readln(k,m);
 close(input);

 ans:=0;
 for i:=1 to maxlongint do
 begin
  ans:=ans+m;
  if judge(ans)=true then break;
 end;

 assign(output,'sramoc.out');
 rewrite(output);
 writeln(ans);
 close(output);
end.