Ejercicio Nº1

·        Programa que permite obtener números pares hasta 50 y muestre la suma de todos ellos

Proceso pares1

|             n<-1;

|             ct<-1;

|             s<-0;

|             pa<-0;

|             Mientras ct <= 50 Hacer

|                |          pa<-2*n;

|                |          Escribir pa;

|                |          ct<-ct+1;

|                |          n<-n+1;

|                |          s<-s+pa;

|             FinMientras

|             Escribir "la suma es" s

FinProceso

·         Programa que permite obtener números impares hasta 200 y muestre la suma de todos ellos

Proceso impares

|             n<-1;

|             ct<-1;

|             s<-0;

|             impa<-0;

|             Mientras ct <= 200 Hacer

|             |             impa<-2*n-1;

|             |             Escribir impa;

|             |             ct<-ct+1;

|             |             n<-n+1;

|             |             s<-s+impa;

|             FinMientras

|             Escribir "la suma es" s

FinProceso