ac1113.pas

来自「同济大学 Online在线题库 AC源代码合集 程序设计竞赛必看资料」· PAS 代码 · 共 19 行

program tju1113;
var
  n,k,m,t,i:word;
begin
  repeat
    read(n,k);
    if n=0 then break;
    m:=0;
    repeat
      inc(m);t:=1;
      for i:=2 to n do begin
        t:=(m+t) mod i;
        if t=0 then t:=i;
      end;
    until t=k;
    writeln(m);
  until false;
end.