Question

Como edito este codigo con arreglos
SubProceso muestra_primos(n1,n2) //[2,40] ==> i:2,3,4.....,40
Escribir "Números primos entre [",n1,",",n2,"]"
sumatoriaPrimos<-0
contadorPrimos<-0

i<-n1
Mientras (i<=n2) Hacer
Si esPrimo(i) Entonces
Escribir i," " sin saltar
sumatoriaPrimos<-sumatoriaPrimos+i
contadorPrimos<-contadorPrimos+1
Fin Si
i<-i+1
Fin Mientras
Escribir ""
Escribir "La sumatoria de los números primos: ",sumatoriaPrimos
Escribir "El promedio de los números primos es: ",sumatoriaPrimos/contadorPrimos
Fin SubProceso

SubProceso muestra_pares(n1,n2) //[2,40] ==> i:2,3,4.....,40
Escribir "Números pares entre [",n1,",",n2,"]"
sumatoriaPares<-0
contadorPares<-0

i<-n1
Repetir
Si esPar(i) Entonces
Escribir i," " sin saltar
sumatoriaPares<-sumatoriaPares+i
contadorPares<-contadorPares+1
Fin Si
i<-i+1
Hasta Que (i>n2)
Escribir ""
Escribir "La sumatoria de los números pares: ",sumatoriaPares
Escribir "El promedio de los números pares es: ",sumatoriaPares/contadorPares
Fin SubProceso

SubProceso muestra_impares(n1,n2) //[2,40] ==> i:2,3,4.....,40
Escribir "Números impares entre [",n1,",",n2,"]"
sumatoriaImpares<-0
contadorImpares<-0
Para i<-n1 Hasta n2 Con Paso 1 Hace
Si !esPar(i) Entonces
Escribir i," " sin saltar
sumatoriaImpares<-sumatoriaImpares+i
contadorImpares<-contadorImpares+1
Fin Si
Fin Para
Escribir ""
Escribir "La sumatoria de los números impares: ",sumatoriaImpares
Escribir "El promedio de los números impares es: ",sumatoriaImpares/contadorImpares
Fin SubProceso

SubProceso R <- esPrimo(n)
contadorDivisores<-0
Para i<-1 Hasta n Con Paso 1 Hacer
Si (n%i=0) Entonces
contadorDivisores<-contadorDivisores+1
Fin Si
Fin Para
Si (contadorDivisores=2) Entonces
R <- verdadero
SiNo
R <- falso
Fin Si
Fin SubProceso

SubProceso R <- esPar(n)
Si (n%2=0) Entonces
R <- verdadero
SiNo
R <- falso
Fin Si
Fin SubProceso



Proceso Ejercicio2
Repetir
Escribir "Ingrese n1: " sin saltar
Leer n1
Escribir "Ingrese n2: " sin saltar
Leer n2
Hasta Que (n1>0 y n2>0 y n1 muestra_primos(n1,n2)
Escribir""
muestra_pares(n1,n2)
Escribir""
muestra_impares(n1,n2)

FinProceso

Answer 1

Respuesta:

no ps sabe porque ni yo sé