Na usina nuclear de Angra dos Reis, os técnicos analisam a perda de massa de um material radioativo. Sabendo-se que este - Exercícios Resolvidos de VisuAlg

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

algoritmo "Tempo de decaimento da massa em VisuAlg"

var
  // variáveis usadas na resolução do problema
  massa: real
  tempo: inteiro
  
inicio
  // 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 faca
    // conta mais um segundo
    tempo <- tempo + 1

    // já se passaram 30 segundos?
    se tempo % 30 = 0 entao
      // reduz a massa em 25%
      massa <- massa - (massa * (25.0 / 100.00))
    fimse
  fimenquanto

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

fimalgoritmo