INICIO
c = 0 //contador de numeros 1
leer(n) //lee el numero desde teclado
mientras n != 0
x = n % 10
si x == 1
c = c + 1
fin-si
n = n / 10 //division entre enteros
fin-mientras
si c == 1
imprimir('El numero 1 aparece ',c,' vez')
sino
imprimir('El numero 1 aparece ',c,' veces')
fin-si
FIN