Scribd
Cargar
4 vistas1 página

Contar divisores de un número entero

El documento describe un subprograma que calcula la cantidad de divisores de un número entero positivo. Se presenta un prototipo de la función 'cantidadDiv' y un programa principal que lee un número, llama a la función y muestra el resultado. La función utiliza un bucle para contar los divisores mediante la verificación del residuo de la división.

Cargado por

Romel Huerta Sanchez
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd
4 vistas1 página

Contar divisores de un número entero

El documento describe un subprograma que calcula la cantidad de divisores de un número entero positivo. Se presenta un prototipo de la función 'cantidadDiv' y un programa principal que lee un número, llama a la función y muestra el resultado. La función utiliza un bucle para contar los divisores mediante la verificación del residuo de la división.

Cargado por

Romel Huerta Sanchez
Derechos de autor
© All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como TXT, PDF, TXT o lee en línea desde Scribd

===========================================================================

Problema 7: Escriba subprograma que halle la cantidad de divisores de un


número entero positivo.
===========================================================================

Entero Acción cantidadDiv(Entero n) //Prototipo

Acción Principal
Declaración de Variables
Entero num, cant //Variables locales a Principal
Inicio
Leer(num)
cant←cantidadDiv(num)
Escribir("La cantidad de divisores es:", cant)
Fin

Entero Acción cantidadDiv(Entero n)


Declaración de Variables
Entero residuo, i, c //Variables locales a cantidadDiv
Inicio
c←0
Para i desde 1 a n Hacer
residuo←n mod i
Si residuo=0 Entonces
c←c+1
FSi
FPara
retornar c
FAcción

También podría gustarte