Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre-a, expressa em anos, meses e dias.

algoritmo “Calcula a idade em anos, meses e dias”
  var
    ano, mes, dia, dias: inteiro
 inicio
    escreva (“Digite a idade em dias:”)
    leia(dias)
    ano<-(dias div 365)
    mes<-(dias mod 365)div 30
    dia<-(dias mod 365)mod 30
    escreva (“A idade em anos, meses e dias é”, ano, mes, dia)
 fimalgoritmo

Faça

algoritmo "Idade em dias"

// Função : Mostrar a idade expressa em dias

// Autor : Gustavo Rodrigues Torre

// Data : 31/8/2007

// Seção de Declarações

var

d : inteiro

m : inteiro

a : inteiro

inicio

Escreva ("Quantos dias? ")

leia (d)

a <- d div 365

m <- (d % 365) div 30

d <- (d % 365) % 30

escreval ("Você tem ",a," anos de idade.")

escreval (m," meses")

escreval (d," dias")

fimalgoritmo