Algoritmos y Programación en Pascal

188 Capítulo 8. Procedimientos y funciones
(b) Pruébelos para distintos pares de enteros y compare la eficiencia de los mismos.
11. Escriba funciones para hallar las siguientes cantidades:
(a) Las cifras que tiene un entero.
(b) La cifra k-ésima de un entero, siendo la de las unidades la 0-ésima.
(c) La suma de las cifras de un entero. 9
12. Desarrolle un programa que busque el primer número perfecto 10 a partir de un
cierto entero dado por el usuario haciendo uso de la función lógica EsPerfecto,
que a su vez se apoya en la función SumCifras definida en el ejercicio anterior.
13. Desarrolle un programa que escriba todos los primos del 1 al 1000 haciendo uso
de la función lógica EsPrimo. Esta función se definirá como en el apartado 8.2.1.
14. Defina la función SerieArmonica : Z → R definida así:
SerieArmonica(n) = 1 + 1 1 1
+ + . . . +
2 3 n
9 A esta cantidad se le llama raíz digital.
10 Un número es perfecto si la suma de sus divisores (excluido él mismo) es igual al propio
número.