(L1) 4º Leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos, meses e dias.

algoritmo "Leia a idade de uma pessoa expressa em dias e mostre-a expressa anos, meses e dias"

var
anos, meses, dias: inteiro

inicio
  Escreva("Digite o total de dias :")
  leia(dias)
  anos <- (dias div 365)
  meses <- ((dias mod 365)div 30)
  dias <- ((dias mod 365)mod 30)
  Escreva (" Idade em anos igual a", anos)
  Escreva (",meses",meses)

  Escreva(" e dias",dias)


fimalgoritmo