> 没想法了。这种题目都会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.

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