Escribir "introduce el valor de A"; Leer a; Escribir "Escribir el valor de B"; Leer b; c <- a+b; Escribir "El resultado es:", c;
Inicio Escribir "Escriba la inversion del individuo: "; Leer inv; pago <- inv * .02; Escribir "Su ganancia es: " pago;Fin
Inicio Escribir "Monto de la compra: "; leer comp; desc <- comp * .15; pagof <- comp - desc escribir "Su pago final es de: " pagofFin
Inicio Escribir "Cantidad en pesos: " Leer pesos Escribir "" Escribir "unidad cambiaria: " Leer unic Escribir "" dol <- pesos/unic Escribir "" Escribir pesos, " Equivalen a: ", dolFin
Inicio Escribir " Escriba el numero de hombres: "; leer h Escribir " Escriba el numero de mujeres: "; Leer m ph <- h * 100 / (h+m) pm <- m * 100 / (h+m) Escribir "Existe un ", ph "% de hombres"; Escribir "Existe un ", pm "% de mujeres";Fin
Inicio Escribir "Cuantas horas trabajo: "; leer hrst Escribir "Cual es la tarifa horaria: " leer tarh Escribir "Cual es la taza de impuesto: " Leer tazi taz <- tazi / 100 imp <- (hrst * tarh) * taz pagn <- (hrst * tarh )- imp Escribir "El pago neto es de: ", pagn Fin
Inicio Escribir "Primer Numero: " leer a Escribir "Segundo Numero: " leer b Escribir "Tercer Numero: " leer c Si a <> b y b <> c Entonces Si a>b y a>c entonces Escribir "El numero mayor es: ", a FinSi Si b>a y b>c Entonces Escribir "El numero mayor es: ", b FinSi Si c>a y c>b Entonces Escribir "El numero mayor es: ", C FinSi Sino Escribir "Los Numeros son Iguales" FinSiFin
Inicio Escribir "Capital: " leer capital Escribir "Interes: " leer interes int_cap=capital*interes/100 si int_cap > 7000 Entonces total=capital+int_cap Escribir "El total de la inversion es: ", total FinSiFin
Inicio Escribir "Nombre del Alumno: " leer Nom Escribir "Calificacion 1: " leer c1 Escribir "Calificacion 2: " leer c2 Escribir "Calificacion 3: " leer c3 prom = (c1+c2+c3)/3 si prom>70 Entonces Escribir "El alumno ", nom, " esta aprovado" Sino Escribir "El alumno ", nom, " esta reprovado" FinSiFin