没想法了。这种题目都会WA!
帮我看看。是不是我理解错了

program p2509;
 var n,k:integer;
     out:longint;

 procedure main;
  var i,j,butt:integer;
  begin
   out:=n;
   butt:=n;
   repeat
    out:=out+butt div k;
    butt:=butt mod k +butt div k;
   until butt<k;
  end;

 begin
  repeat
   readln(n,k);
   if n=0 then halt;
   main;
   writeln(out);
  until eof;
 end.

• 我也是Pascal,注意一下输入>> (424) zdker 2005-07-27 14:41:22
  • Re:我也是Pascal,注意一下输入>> (10) ACM05002 2005-07-27 18:31:06