5. Convertir un número a binario
   inicio    
        variables pro, num, res, x pro, binario
     leer Num
         pro =1
      mientraS Num <> 0
       res = Num mod 2
          si (ns > =0) entonces
            pro= pro*10 tres
     fin-si     
       Num=NUm Div 2
     Fin-mientras
       x pro =0
         mientras pro<>0
          x pro=((x pro*10)+(pro mod 10))
            Binario = x pro=pro/10
     fin-mientras
        binario=xpro Div 10
          imprimir binario
   fin

Autor: 
Enma lozano suarez