program main
 implicit none
 character*10 N
 integer M,d,k,i,ans
 read(*,*) N
 d = len_trim(N)
 
 ans = 0
 if(mod(d,2) == 0) then
  do i=1,d-1,2
   ans = ans + (10**i - 10**(i-1))
  end do
 else
  read(N(2:d),*) M
  ans = M + 1 - 10**(i-1)
  do i=1,d-2,2
   ans = ans + (10**i - 10**(i-1))
  end do
 end if
 write(*,*) ans
end program main