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