Esto no va en este foro...
Esto creo que funcionaría:
Esto creo que funcionaría:
Código [Seleccionar]
Ingresar numero
numero = numero * numero
Mientras numero <> 0 hacer
| contador = contador + 1
| numero = numero / 10
|Fin Mientras
contador = contador - 1