Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  d:
Language: PASCAL
Code:
var
 k,c,s:longint;
begin
 s:=0;
 read(k,c);
 while k>1 do begin
  k:=k*c div (c+1);
  inc(s);
 end;
 write(s);
end.
          
Comments: