Напишете программу ,которая вычисляет количество цифр числа. Используйте функцию....

Question

Напишете программу ,которая вычисляет количество цифр числа. Используйте функцию.
Помогите пожалуйста.
Буду очень благодарна.

Answer 1

Var
 n:integer; 
function kol(n:integer):integer;
var k:integer;
begin
k:=0;
while n>0 do
 begin
 k:=k+1;
 n:=n div 10;
 end;
kol:=k;
end;
begin
write('n = '); readln(n);
writeln('k = ',kol(n));
end.

Пример:
n = 123456
k = 6