Trabajo Semana 4

Inicio Alg
Variables
Dim V(10),num(5),2.1(10),2.2(10),2.3(10): n/e
Dim 2.4(10):n/f
suma,x,y,contn,contc,z,b :n/e
X<-1
Mientras x=<10 hacer
Escribir (“Ingrese un número de 5 cifras”)Leer (a)
Si a>9999 y a<100000 entonces
V(x)<-a
x=x+1
Si no
Escribir (“El número ingresado no es válido. Ingrese un número de 5 dígitos”)
FinSi
Fin Mientras
y<-1
contn<-0
Para y<-1hasta y<-10 paso 1
contc<-0
Para z<-0 hasta z<-4 paso 1
b <- V(y) DIV 10^z
SI b Mod 2 = 0 entonces
Contc<-contc+1
FinSi
Fin Para
Si contc>=3 entonces
contn<-contn+1
Fin Si
FinPara
Escribir contn, (“números ingresados tienen al menos 3 cifras pares”)
y<-1
para y<-1 hasta y<-10 paso1
x<-5
z<-4
Mientras x<=5 hacer
num(x) = trunc ( V(y)/10^z)z<- z-1
FinMientras
Si num(1) > num(5) entonces
2.1(y) = num(1)+num(5)
fin Si
Si num(1) < 9 Y num(5)< 9 entonces
2.2(y) = num(1)*num(5)
fin Si
Si num(1) >=num(5)*3 entonces
2.3(y) = num(1)-num(5)
fin Si
Si num(1)+num(2)+num(3)+num(4)+num(5) >=20 entonces
2.4(y) = (num(2)+num(3))/2
fin Si
y<-1
para y<-1 hasta y<-10 paso1
Si 2.1(y)<> 0 entonces
Mostrar "respuesta consulta 2.1 es :" 2.1(y)
Sino
Mostrar "Proceso de número no realizado por no cumplir condicionantes"
Fin Si
Si 2.2(y) <> 0entonces
Mostrar "respuesta consulta 2.2 es :" 2.2(y)
Sino
Mostrar "Proceso de número no realizado por no cumplir condicionantes"
Fin Si

Si 2.3(y) <> 0entonces
Mostrar "respuesta consulta 2.3 es :" 2.3(y)
Sino
Mostrar "Proceso de número no realizado por no cumplir condicionantes"
Fin Si
Si 2.4(y) <> 0entonces
Mostrar "respuesta consulta 2.4 es :" 2.4(y)
Sino
Mostrar "Proceso de número no realizado por no cumplir condicionantes"
Fin Si
Fin Para
Fin Alg