program pil_5_6_e(input, output);
var 
	n, k : integer;
begin
	read(n);
	if n<>0 then
	begin
		while (n>0) do
		begin
			k:=k+1;
			n:=n div 10;
		end;
		write(k);
	end else write(1);
end.