Tryuuiop

EJERCICIOS DE PRÁCTICA
EJERCICIOS DE PRÁCTICA

Resuelves los siguientes ejercicios en lpp:

entero i,n,ame,acas,asol,edad,ahom
cadena[50] carrera,sexo,e_civil
inicio
ahom<-0
asol<-0acas<-0
ame<-0
escriba "Ingrese la cantidad de estudiantes encuestados: "
lea n
para i<-1 hasta n haga
escriba "Digite su carrera (sistemas,industrial,derecho o psicologia): "
leacarrera
llamar nueva_linea
escriba "Digite su edad: "
lea edad
llamar nueva_linea
escriba "Digite su sexo (hombre, mujer):"
lea sexo
llamar nueva_linea
escriba "Digite su estado civil (casado,soltero)"
lea e_civil
llamar nueva_linea
si (edad<18)entonces
ame<-ame+1
fin si
si(carrera="sistemas")entonces
si (e_civil="casado")entonces
acas<-acas+1
sino
si(e_civil="soltero")entonces
asol<-asol+1
fin si
fin si
fin si
si(carrera="psicologia")entonces
si(sexo="hombre")entonces
ahom<-ahom+1
fin si
fin si
fin para
escriba "La cantidad de menores de 18 añoses: ",ame
llamar nueva_linea
escriba "La cantidad de solteros en sitemas es: ",asol
llamar nueva_linea
escriba "Lacantidad de casados en sitemas es: ",acas
llamar nueva_linea
escriba "La cantidadde hombres en psicologia es: ",ahom
fin
_________________________________

entero n_estu,edad,i,a,b,c,d
caracter sexo,carrera,civil
inicio
escriba "Numero De Estudiantes: "
lea n_estullamar nueva_linea
a<-0
b<-0
c<-0
d<-0
para i<-1 hasta n_estu haga
escriba "Encueta Numero ",i
llamar nueva_linea
escriba "Escriba Carrera s,i,d,p: "
lea carrera
escriba "IngreseEdad: "
lea edad
escriba "Ingrese Sexo M o F: "
lea sexo
escriba "Ingrese Estado Civil S o C: "
lea civil
llamar nueva_linea
llamar nueva_linea
si(edad<=18) entonces
a<-a+1
fin si
si(carrera='s') entonces
si (civil='c') entonces
b<-b+1
fin si
fin si
si (carrera='s') entonces
si (civil='s') entonces
c<-c+1
fin si
si (carrera='p') entonces
si (sexo='m') entonces...