Ler um número inteiro, separar seus dígitos e imprimí-los individualmente separados por espaços - Exercícios Resolvidos de VisuAlg

Informe um valor inteiro de três dígitos: 398
Os dígitos separados são: 3 9 8

algoritmo "Como separar um número em seus dígitos individuais"

var
  // variáveis usadas na resolução do problema
  valor, primeiro, segundo, terceiro: inteiro

inicio
  // vamos solicitar ao usuário que informe um valor inteiro
  // na faixa 100 a 999 (incluindo)
  escreva("Informe um valor inteiro de três dígitos: ")
  leia(valor)

  // vamos verificar se o valor está na faixa permitida
  se (valor < 100) ou (valor > 999) entao
    escreva("Valor fora da faixa permitida")
  senao
    // vamos extrair os dígitos individualmente, da esquerda para a direita
    // vamos obter o primeiro dígito
    primeiro <- Int(valor / 100)
    valor <- valor % 100

    // vamos obter o segundo dígito
    segundo <- Int(valor / 10)
    valor <- valor % 10

    // vamos obter o terceiro valor
    terceiro <- valor

    escreva("Resultado: ", primeiro, " ", segundo, " ", terceiro)
  fimse

fimalgoritmo