var a,b,c,d:longint;
begin
read(a,b);
if a mod b=0 then c:=a div b
             else c:=a div b+1;
             write(c);
             end.
/**************************************************************
	Problem: 1648
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/