Ejercicio 1

Plantee e implemente un programa en PASCAL que sume los primeros 100
números enteros pares por una parte y los impares por otra.


PROGRAM parimpar(input,output);
(*Programa que sume los primeros 100 numeros pares por un lado y los 100 impares por otro lado*)
VAR
        n:integer;
        sumapares:integer;
        sumaimpares:integer;

BEGIN
   FOR n:=1 TO 100 DO
        BEGIN
        sumapares:=(2*n);
        sumaimpares:=(2*n+1);
        END;
        writeln('La suma de los numeros pares es:',sumapares:4,'');
        writeln('La suma de los numeros impares es:',sumaimpares:4,'');
END.


Ejemplo de ejecución