DDS

function kolvo(n: integer): byte;
begin
if ch>10 then f := 1 + f(n div 10);
else kolvo:=1;
end;
var
ch: integer;
begin
read(n);
write( f(n) );
end.

А какой смысл задавать один и тот же вопрос на 2 форумах?
Не верите обитателям cyberforum-а или нам?