var
  c, l: integer;

begin
c:=0;
  var s := readstring();
  for var i := 1 to length(s) do 
  begin
    l := strtoint(s[i]);
    if (l mod 2 = 0)and(l<>0) then c := c + 1;
  end;
  write(c);
end.