Proceso divisores
Enviado por Cristian utria • 6 de Octubre de 2015 • Apuntes • 506 Palabras (3 Páginas) • 79 Visitas
Proceso divisores
Escribir "ingrese el numereo al que decea sacar sus divisores"
leer n
Para i<-1 Hasta n Con Paso 1 Hacer
Si (n mod i=0) Entonces
escribir "los devisores de este numero son:",i
Fin Si
Fin Para
FinProceso
[pic 1]
Proceso factorial
Escribir "ingrese el numero al que desea saber su factorial"
Leer n
fac<-1
Para i<-1 Hasta n Con Paso 1 Hacer
fac<-fac*i
Fin Para
Escribir "el factorial exacto de este numero es: ",fac
FinProceso
[pic 2]
Proceso serie_fibonacci
Escribir "ingrese un numero positivo, este sera el numero de datos que usted deseara de la serie fibonacci "
Leer num
a<-0
b<-1
Para i<-0 Hasta num Con Paso 1 Hacer
Escribir a
f<-a+b
b<-a
a<-f
Fin Para
FinProceso
[pic 3]
Proceso sumatoria
Definir residuo,sd,num Como Entero
Escribir "digite un numero enter"
Leer num
sd<-0
Mientras (num>10) Hacer
residuo <- num mod 10
num<- num / 10
sd<-sd + residuo
Fin Mientras
Escribir "la sumatoria de todos los digitos es:",sd+num
FinProceso
[pic 4]
...