var s: string; k,i: integer;
begin
k:=0;
readln(s);
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln(k);
end.
var s: string; k,i: integer;
begin
k:=0;
readln(s);
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln(k);
end.