var
 sum,a,k,c:longint;
begin
 while not eof do
  begin
   readln(a,k);sum:=0;c:=0;
   while a>0 do
    begin
     inc(sum,a);
     inc(c,a);
     a:=c div k;
     c:=c mod k;
    end;
   writeln(sum);
  end;
end.

• Re:我程序这样为什么还是wa ？？？ (21) 124 2006-10-18 22:27:53