var n,c:integer;
begin
c:=0;
readln(n);
if n>0 then
c:= c +1;
n:=n div 10
else
write('c=',c);
end;
end.
var n,c:integer;
begin
c:=0;
readln(n);
if n>0 then
begin
c:= c +1;
n:=n div 10
else
write('c=',c);
end;
end.