Pseint - numero Binario .

Escribir " ingrese un numero entero positivo";
Leer n
mientras n<0 o n <> trunc(n) Hacer

escribir: "error, ingrese un entero positivo";
leer n

fin mientras

decimal<-n bninario<-0 i<- 1 mientras trunc(n) >0 hacer
d<- n mod 2
binario <-binario+d*i

i<-i*10
n<-trun(n/2)
fin mientras
escribir "el numero ", decimal, " en binario es ", binario;
fin proceso