Ejercicio 1
Algoritmo MayoresIgualesMenoresA9
N<-0
Escribir "Escribir el numero"
Leer N
Si N Es Igual A 9 Entonces
Escribir "El numero es igual a 9"
Sino
Si N Es Mayor Que 9 Entonces
Escribir "El numero es mayor a 9"
Sino
Escribir "El numero es menor a 9"
Fin Si
Fin Si
FinAlgoritmo
Ejercicio 1
Algoritmo ParidadNumeros
Leer nro
Si (nro mod 2) = 0 entonces
Escribir "es par"
Sino
Escribir "es impar"
Fin Si
FinAlgoritmo
Ejercicio 3
Algoritmo SumaDosNumeros
Algoritmo sumadedosnumeros
Num1<-0
Num2<-0
Escribir "Escribir el numero 1"
Leer Num1
Escribir "Escribir el numero 2"
Leer Num2
Rta<-Num1+Num2
Escribir "El resultado es:" Rta
FinAlgoritmo
Ejercicio 4
Algoritmo SumaDePares
suma <- 0
nro <- 2
Mientras nro<=100 hacer
si nro mod 2 = 0 Entonces
suma= suma+nro
FinSi
nro=nro+1
FinMientras
Escribir "la suma de los pares entre 2 y 100 es " suma
FinAlgoritmo
Ejercicio 5
Algoritmo aprueba_reprueba
Escribir "Ingrese calificacion 1"
Leer Cal1
Escribir "Ingrese calificacion 2"
Leer Cal2
Escribir "Ingrese calificacion 3"
Leer Cal3
Prom<-(Cal1+Cal2+Cal3)/3
Si Prom>=4 Entonces
Escribir "Aprueba"
Sino
Escribir "Reprueba"
Fin Si
Escribir Prom
FinAlgoritmo
Ejercicio 6
Algoritmo sin_titulo
escribir "Vamos a hacer una calculadora donde debes ingresar dos números que debes
sumar, multiplicar, restar o dividir.";
escribir "Por favor ingresa el primer número:";
leer num1;
escribir "Por favor ingresa el segundo número:";
leer num2;
escribir "Por favor ingrese la operación que desea realizar. Elija una de las siguientes
opciones:";
escribir "1: Para sumar";
escribir "2: Para restar.";
escribir "3: Para multiplicar.";
escribir "4: Para dividir.";
escribir "5: Para elevar a una potencia.";
leer opc;
Segun opc Hacer
1:
res<-num1+num2;
2:
res<--num1-num2;
3:
res<-num1*num2;
4:
res<-num1/num2;
5:
res<-num1^num2;
De Otro Modo:
escribir "La opción seleccionada no es valida.";
Fin Segun
escribir "Presione una tecla para continuar.";
esperar Tecla
Borrar Pantalla
escribir "El resultado final es: ",res,".";
FinAlgoritmo
