Na usina nuclear de Angra dos Reis, os técnicos analisam a perda de massa de um material radioativo. Sabendo-se que este - Desafio de Programação Resolvido em Portugol

Informe a massa (em gramas): 300
O tempo necessário é: 840 segundos.

// Tempo de decaimento da massa em Portugol
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    real massa
    inteiro tempo
  
    // inicializa a variável tempo
    tempo = 0

    // vamos ler a massa do material
    escreva("Informe a massa (em gramas): ")
    leia(massa)

    // enquanto a massa for maior que 0,10 grama
    enquanto (massa > 0.10) {
      // conta mais um segundo
      tempo = tempo + 1

      // já se passaram 30 segundos?
      se (tempo % 30 == 0) {
        // reduz a massa em 25%
        massa = massa - (massa * (25.0 / 100.00))
      }
    }

    // mostra o resultado
    escreva("O tempo necessário é: ", tempo, " segundos.")
  }
}