P1150 Peter的烟

题目描述

Peter有n根烟，他每吸完一根烟就把烟蒂保存起来，k(k>1)个烟蒂可以换一个新的烟，那么Peter最终能吸到多少根烟呢？

输入输出格式

输入格式：

每组测试数据一行包括两个整数n(1

输出格式：

对于每组测试数据，输出一行包括一个整数表示最终烟的根数。

输入输出样例

输入样例#1：

4 3

输出样例#1：

5

输入样例#2：

10 3

输出样例#2：

14

var
 n,m,j,k,i,l,x,y,ans:longint;
begin
 readln(n,m);
 x:=n;
 while x>0 do
  begin
   dec(x);
   inc(y);
   if y=m then begin
               inc(x);
               y:=0;
               end;
   inc(ans);
  end;
  write(ans);
end.

输入样例#1：

4 3

输出样例#1：

5

输入样例#2：

10 3

输出样例#2：

14