Proceso sin_titulo Definir num como entero;
Escribir "1- calcular la suma enesima";
Escribir "2- calcular la suma de impares";
Escribir "3- calcular factorial";
Escribir "4- calcular la tabla de multip´licacion del 1 al 12";
Escribir "ingrese numero";
Leer num;
Segun num Hacer 1: suma=0 ;
Escribir "ingrese el valor para n";
Leer n;
c=1;
Mientras c<=n Hacer
suma=suma+(2*c);
c<-c+1;
Fin Mientras
Escribir "El resultado es:", suma; 2: suma=0
Escribir "ingrese el valor para n";
Leer n;
c<-1
Mientras c<=n Hacer
suma<-suma+((2*c)-1)
c<-c+1 Fin Mientras
Escribir "El resultado es:", suma;
3: factorial=1;
Escribir "ingrese el valor para n";
Leer n;
c<-1;
Mientras c<=n Hacer factorial<-factorial*c;
c<-c+1 Fin Mientras
Escribir "el resultado es factorial:" factorial;
4:
tabla=0;
c<-0;
Escribir "ingrese el valor para n";
Leer n;
Escribir "la tabla del n es:", n;
Mientras c<=12 hacer
tabla<-tabla+c*n;
c<-c+1;
Escribir c, "*", n,"=", c*n;
Fin Mientras
5:
Definir serie como real;
serie=0;
factorial=1;
c=1;
Escribir "ingrese el valor para n";
Leer n;
Escribir "el resultado es:", serie;
Mientras c<=n Hacer
factorial<-factorial*c;
c<-c+1;
serie<-serie+factorial/(2*c+1); Fin Mientras De Otro Modo: Escribir "fuera de rango" Fin Segun FinProceso