Um determinado material radioativo perde metade de sua massa a cada 50 segundos. Dada amassa inicial, em gramas, fazer um programa que determine o tempo necessário para que essamassa se torne menor que 0,5 grama. Escreva a massa inicial, a massa final e o tempo calculado emhoras, minutos e segundos.

79) Um determinado material radioativo perde metade de sua massa a cada 50 segundos. Dada amassa inicial, em gramas, fazer um programa que determine o tempo necessário para que essamassa se torne menor que 0,5 grama. Escreva a massa inicial, a massa final e o tempo calculado emhoras, minutos e segundos.

algoritmo "Material Radioativo"

var

massa, massai, massaf: real

contador, hora, minuto, segundo: inteiro

inicio

contador<- 0

massaf<- 0

escreval("Digite a massa inicial: ")

leia(massa)

massai<- massa

enquanto (massa >= 0.5) faca

massa<- massa / 2

contador<- contador + 50

fimenquanto

massaf<- massa

segundo<- contador mod 60

minuto<- contador div 60

hora<- minuto div 60

escreval("A massa inicial é: ",massai)

escreval("A massa final é: ",massaf)

escreval("O tempo gasto foi: ",hora," h ",minuto," m ",segundo," s")

fimalgoritmo