var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.