trabjo
Publicado por anais (1 intervención) el 26/10/2022 15:26:31
Leer numero
totalDigitos<-Longitud(numero)
cuentaCeros = 0
cuentaPares = 0
cuentaImpares = 0
i=1
Mientras i<=totalDigitos Hacer
caracter = ConvertirANumero(Subcadena(numero,i,i))
Si caracter == 0 Entonces
cuentaCeros = cuentaCeros + 1
SiNo
Si caracter MOD 2 == 0 Entonces
cuentaPares = cuentaPares + 1
SiNo
cuentaImpares = cuentaImpares + 1
Fin Si
Fin Si
i=i+1
Fin Mientras
Escribir "Ceros:",cuentaCeros
Escribir "Pares:",cuentaPares
Escribir "Impares:",cuentaImpares
FinAlgoritmo
totalDigitos<-Longitud(numero)
cuentaCeros = 0
cuentaPares = 0
cuentaImpares = 0
i=1
Mientras i<=totalDigitos Hacer
caracter = ConvertirANumero(Subcadena(numero,i,i))
Si caracter == 0 Entonces
cuentaCeros = cuentaCeros + 1
SiNo
Si caracter MOD 2 == 0 Entonces
cuentaPares = cuentaPares + 1
SiNo
cuentaImpares = cuentaImpares + 1
Fin Si
Fin Si
i=i+1
Fin Mientras
Escribir "Ceros:",cuentaCeros
Escribir "Pares:",cuentaPares
Escribir "Impares:",cuentaImpares
FinAlgoritmo
Valora esta pregunta


-1