program main
  implicit none
  integer(8) i,N,ans
  !read(*, *) (L(i), i = 1,N)
  read(*, *) N
  ans = 0
  do i = 1,N
    if (i<=9) then
      ans = ans + 1
    elseif (i>=100 .and. i<1000) then
      ans = ans + 1
    elseif (i>=10000 .and. i<100000) then
      ans = ans + 1
    end if
  end do

  write(*, *) ans
end program main
