Program Pzim ;
{2- Construa um programa que leia a idade de uma pessoa expressa em dias e
expresse-a em anos, meses e dias.}
var
idade, anos, mes, meses, dias:integer;
{todas variaveis do tipo inteiro, uma pra receber a idade em dias
uma pra ano, duas pra meses e uma pra dia, duas pra meses, pois precisa de uma auxiliar}
{a questão vai ser feita considerando o mes com 30 dias, consequentemente o ano com 360 dias}
Begin
writeln('Digite a idade em dias : ');
read(idade); {recebe a idade em dias}
dias:=(idade mod 30); {mod é o resto da divisão, entao se dividir a quant de dias
por 30 o resto é a quantidade de dias }
mes:=(idade div 30); {div é a parte inteira da divisão, então quando eu divido
a quant. de dias por 30, me dá a quant de meses}
meses:=(mes mod 12); {mod é o resto da divisão. então se dividir a quant de meses
por 12, o resto é a quantidade de meses}
anos:=(idade div 360); {div é a parte inteira da divisão, então quando em divido
a quant. de dias por 360 eu acho a quant de anos}
{a exibição é feita com as variaveis e texto}
writeln(anos,' anos, ',meses, ' meses e ',dias,' dias.');
End.
