ac1113.pas

来自「某牛人写的acm.tongji.edu.cn上大部分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.