借烟蒂的问题 80分

EricZeng @ 2017-05-14 19:49:39

var k,n,n1,ans:longint;
begin
  readln(n,k);
  n1:=n;
  n:=0;
  ans:=n1;
  while n1 >= k do begin
    n:=n+(n1 div k);
    n1:=n1 mod k;
    ans:=ans+n;
    n:=0;
  end;
  writeln(ans);
end.

by hl666 @ 2017-05-31 13:12:19

问一句，如果剩下k-1支烟可以先借一支抽完了再换回去吗？

by xrz2895538112xrz @ 2017-08-28 21:45:47

不可以的

by xrz2895538112xrz @ 2017-08-28 21:46:27

原来我也以为可以，结果加了错了，去了就对了