Question

Функция. Подсчитать количество цифр в заданном натуральном числе.
Решить в Паскале

Answer 1

===== PascalABC.NET =====

function ЧислоЦифр(n: int64): integer;

begin

 Result := 0;

 while n > 0 do

 begin

   Inc(Result);

   n := n div 10

 end

end;

begin // тест

 foreach var k in Seq&<int64>(3456765834578234, 35634, 96723, 100, 5) do

   Print(ЧислоЦифр(k))  // выведет 16 5 5 3 1

end.