var i,a,b,c,d,e,s,n:longint;
begin
read(n);
for i:=10000 to n do
begin
a:=i mod 10;
b:=i div 10 mod 10;
c:=i div 100 mod 10;
d:=i div 1000 mod 10;
e:=i div 10000;
if (a mod 2=0)and(b mod 2=0)and(c mod 2=0)and(d mod 2=0)and(e mod 2=0) then s:=s+1;
end;
write(s);
end.
/**************************************************************
	Problem: 1745
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/