Dayana7

var
a,b,q:integer;
begin
  readln(A,b);
  while (a>=b) do
  begin
  dec(a,b);
  inc(q);
  end;
  writeln(q);
end.