1
Algoritmo numeroMayor
2
    Definir numero1, numero2 Como Entero
3
  Escribir "Ingresa un numero:"
4
    Leer numero1
5
  Escribir "Ingresa otro numero"
6
    Leer numero2
7

8
    Si numero1 > numero2 Entonces
9
        Mostrar "El mayor es: ", numero1
10
    Sino
11
        Mostrar "El mayor es: ", numero2
12
  FinSi
13
FinAlgoritmo

1
Algoritmo mayorDeTres
2
    Definir numero1, numero2, numero3 Como Entero
3
  Escribir "Ingrese un numero"
4
    Leer numero1
5
  Escribir "Ingrese otro un numero"
6
    Leer numero2
7
  Escribir "Ingrese un ultimo numero"
8
    Leer numero3
9
    Si numero1 > numero2 Entonces
10
        Mostrar "El mayor es: ", numero1
11
    Sino
12
        Si numero2 > numero3
13
            Mostrar "El mayor es: ", numero2
14
        Sino
15
            Mostrar "El mayor es: ", numero3
16
        FinSi
17
    FinSi
18
FinAlgoritmo

1
Algoritmo numeroMayor
2
  Definir mayor, numero Como Entero
3
  Definir entrada Como Cadena
4

5
  Escribir "Ingrese un número (o N para terminar): "
6
  Leer entrada
7

8
  Si entrada = "N" Entonces
9
    Escribir "No se ingresaron números."
10
  FinSi
11

12
    numero <- ConvertirANumero(entrada)
13
    mayor <- numero
14
    Escribir "Ingrese un número (o N para terminar): "
15
    Leer entrada
16

17
    Mientras entrada <> "N" y entrada <> "n" Hacer
18
      numero <- ConvertirANumero(entrada)
19
      Si numero > mayor Entonces
20
        mayor <- numero
21
      FinSi
22
      Escribir "Ingrese un número (o N para terminar): "
23
      Leer entrada
24
    FinMientras
25
  Escribir "El mayor número es: ", mayor
26
FinAlgoritmo

1
Algoritmo parImpar
2
    Definir numero Como Entero
3
  Escribir "Ingrese un numero"
4
    Leer numero
5
    Si numero % 2 == 0 Entonces
6
        Mostrar "El numero es par"
7
    Sino
8
        Mostrar "El numero es impar"
9
  FinSi
10
FinAlgoritmo

1
Algoritmo sumarPares
2
    Definir suma, numero Como Entero
3
    suma = 0
4
  Escribir "Ingrese varios numeros, solo se sumaran los pares, cuando quiera terminar ingrese 0"
5
    Leer numero
6
    Mientras numero <> 0 Hacer
7
        Si numero mod 2 = 0 Entonces
8
            suma = suma + numero
9
        Fin Si
10
        Leer numero
11
    Fin Mientras
12
    Mostrar "La suma de los pares es: ", suma
13
FinAlgoritmo

1
Algoritmo contarPares
2
    Definir contador, numero Como Entero
3
    Definir entrada Como Cadena
4
    contador <- 0
5
    Escribir "Ingrese un número (o N para terminar): "
6
    Leer entrada
7
    Mientras entrada <> "N" y entrada <> "n" Hacer
8
        numero <- ConvertirANumero(entrada) // Nota: PSeInt no tiene función nativa, pero funciona
9
        Si numero % 2 = 0 Entonces
10
            contador <- contador + 1
11
        FinSi
12
        Escribir "Ingrese un número (o N para terminar): "
13
        Leer entrada
14
    FinMientras
15
    Escribir "La cantidad de números pares es: ", contador
16
FinAlgoritmo