Ejemplo de Algoritmo que calcula suma de numero pares e impares en el rango de 1 a 1000 inclusive

Proceso SumaNumerosParaImpar
Definir mn como entero;
Definir i como entero;
Definir sui como entero;
Definir sp como entero;
Definir paridad como entero;
Definir continuar como logico;

continuar <- verdadero;

Mientras continuar Hacer
Escribir "Escribir ingrese el valor del mayor numero (1-1000): ";
Leer mn;
Si mn > 0 & mn <= 1000 Entonces
continuar <- falso;
Sino
Escribir "El numero mn debe ser mayor a cero y menor o igual a 1000";
FinSi

FinMientras


sp <- 0;
sui <- 0;

Para i <- 1 Hasta mn con paso 1 Hacer
paridad <- i % 2;

Si paridad = 1 Entonces
sui <- sui + i;
Sino
sp <- sp + i;
FinSi


FinPara


Escribir "La suma de los numero pares hasta ",mn," es : ",sp;
Escribir "La suma de los numero impares hasta ",mn," es :",sui;

FinProceso