Pseint - Edad2
Proceso Edad
definir nom1,nom2 Como Caracter;
definir edad1,edad2,edadtotal como real;
escribir "Escriba Dos Nombres";
leer nom1; leer nom2;
edadtotal<- 80;
edad1<- (400/18);
edad2<- 2*(3/5)*edad1;
si edad1>=18 Entonces
escribir nom1," " "es mayor de edad";
Sino
escribir nom1," " "es menor de edad";
FinSi
si edad2>=18 Entonces
escribir nom2," " "es mayor de edad";
sino
escribir nom2," " "es menor de edad";
FinSi
si edad1>edad2 Entonces
escribir nom1," " "es mayor que ",nom2;
sino
escribir nom2," " "es menor que ",nom1;
FinSi
FinProceso
definir nom1,nom2 Como Caracter;
definir edad1,edad2,edadtotal como real;
escribir "Escriba Dos Nombres";
leer nom1; leer nom2;
edadtotal<- 80;
edad1<- (400/18);
edad2<- 2*(3/5)*edad1;
si edad1>=18 Entonces
escribir nom1," " "es mayor de edad";
Sino
escribir nom1," " "es menor de edad";
FinSi
si edad2>=18 Entonces
escribir nom2," " "es mayor de edad";
sino
escribir nom2," " "es menor de edad";
FinSi
si edad1>edad2 Entonces
escribir nom1," " "es mayor que ",nom2;
sino
escribir nom2," " "es menor que ",nom1;
FinSi
FinProceso
Comentarios
Publicar un comentario