Como transformar dias em anos, meses, semanas e dias em VisuAlg - Exercícios Resolvidos de VisuAlg

Informe o número de dias: 500
Você informou 500 dias

Isso equivale a:
1 anos
4 meses
2 semanas
1 dias

algoritmo "Converter dias em anos, meses, semanas e dias"

var
  // variáveis usadas na resolução do problema
  total_dias, anos, meses, semanas, dias: inteiro

inicio
  // vamos ler a quantidade e dias
  escreva("Informe o número de dias: ")
  leia(total_dias)
  dias <- total_dias

  // vamos obter a quantidade de anos
  anos <- Int(dias / 365)
  dias <- dias % 365
  // agora a quantidade de meses
  meses <- Int(dias / 30)
  dias <- dias % 30
  // agora a quantidade de semanas
  semanas <- Int(dias / 7)
  // e finalmente os dias
  dias <- dias % 7

  // e mostramos os resultados
  escreval("Você informou ", total_dias, " dias")
  escreval()
  escreval("Isso equivale a:")
  escreval(anos, " anos")
  escreval(meses, " meses")
  escreval(semanas, " semanas")
  escreval(dias, " dias")

fimalgoritmo