Question

Напишите функцию, которая вычисляет количество цифр числа (PascalABC)

Answer 1

function kol(n:integer):integer;
var
   kol1:integer;
begin
   kol1:=0;
   repeat
      kol1:=kol1+1;
      n:=n div 10;
   until n=0;
   kol:=kol1;
end;