func main()
	var n: int :: cui@inputInt()
	var ans: int :: 0
	for i(1, n)
		var num: int :: i
		while loop(num <> 0)
			if(num % 10 = 8)
				do ans :+ 1
				break loop
			end if
			do num :/ 10
		end while
	end for
	do cui@print("\{ans}\n")
end func