Nadie Modera...

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

 

q bueno que yo no estudio nada de eso

 

asdafas

 

computin

 

mmmmmmmmm