Escribir "Ingresar Numero:"; Leer X; Si X<>Trunc(X) Entonces Escribir "Debe ser entero"; Sino Primo<-"Si"; Si X/2=trunc(X/2) Entonces Primo<-"No"; FinSi Si X<0 entonces Xf<-X*-1; sino Xf<-X; FinSi Xf<-RC(Xf); f<-3; Mientras f<=Xf & Primo="Si" Hacer Si X/F=trunc(X/F) Entonces Primo<-"No"; FinSi f<-f+2; FinMientras Escribir "Numero Primo:",Primo; Si f=3 Entonces F<-4; FinSi Si Primo="No" Entonces Escribir X,"=",f-2,"x",X/(f-2); FinSi FinSi FinProceso
Proceso DecimalBinario Escribir "Ingresar Decimal"; Leer resultado resultado<-resultado*2 Escribir " ",resultado si resultado>=1 Entonces resultado<-resultado-1 Escribir " ",resultado resultado<-resultado*2 Escribir " ",resultado si resultado>=1 Entonces resultado<-resultado-1 Escribir " ",resultado resultado<-resultado*2 Escribir " ",resultado si resultado>=1 Entonces resultado<-resultado-1 FinSi FinSi FinSi FinProceso
Proceso Promedio Escribir "Ingresar cantidad de datos" leer z; suma<-0 Para x<-1 Hasta z Hacer Escribir "ingresar dato ",x,":"; leer dato; suma<-suma+dato; FinPara prom<-suma/z escribir "promedio : ",prom; FinProceso
