Respuesta:
Algoritmo sin_titulo
Escribir "base del numero"
Leer base
Escribir "base a cambiar"
Leer cambio
Escribir "inserte el numero "
Leer numerito
size<-Longitud(numerito)
dimension sifras(size)
Para i<-1 Hasta size Con Paso 1 Hacer
sifras(i)<-SubCadena(numerito,i,i)
Fin Para
m<-0
a<-size
definir base10 como entero
Para j<-1 Hasta size Con Paso 1 Hacer
numer<-ConvertirANumero(sifras(a))
base10<-numer*base^m+base10
escribir sifras(a) "x" base^m ": " base10
m<-m+1
a<-a-1
Fin Para
escribir "base 10:" base10
b<- trunc(base10/cambio)
c<-base10%cambio
escribir b
escribir c
escribir"-------"
vueltas<-1
dimension ya(999)
ya(vueltas)<-c
Mientras b <> entero Hacer
vueltas<-vueltas+1
e<-b
b<-trunc(e/cambio)
escribir b
ya(vueltas)<-e%cambio
escribir ya(vueltas)
escribir"------"
Fin Mientras
//vueltas<-vueltas+1
ya(vueltas)<-e
Mientras vueltas>0 Hacer
escribir ya(vueltas)
vueltas<-vueltas-1
Fin Mientras
FinAlgoritmo
Explicación:hay esta
