var a,k: integer;

begin

readln(a);

a:=abs(a);

k:=0;

while a>0 do

begin

k:=k+1;

a:=a div 10;

end;

writeln(k);

end.