Obtener la cantidad de cifras de un numero

[[seoane]]

Empezado por aeff

... pero lo que quize preguntar fue que como doy solución a los algoritmos en base 10

Tienes 2 opciones, sin la unidad math solo cuentas con la función ln, es decir el logaritmo en base e. Pero aplicando propiedades de los logaritmos:

Código Delphi [-]
function log(X: Extended): Extended;
begin
  Result:= ln(X)/ln(10);
end;

Sin embargo si añades la unidad math, ya puedes usar la función log10 para calcular el logaritmo base 10.