Segue abaixo um exemplo de código em Lazarus que pode ajudar a resolver o problema proposto: ``` program idade; uses crt; var ano_nasc, mes_nasc, mes_atual, idade: integer; begin writeln('Digite o ano de nascimento:'); readln(ano_nasc); writeln('Digite o mês de nascimento (1 a 12):'); readln(mes_nasc); writeln('Digite o mês atual (1 a 12):'); readln(mes_atual); if mes_atual = mes_nasc then writeln('Mês referente ao seu aniversário') else writeln('Não é o mês do seu aniversário'); idade := (mes_atual - mes_nasc) + ((YearOf(Now) - ano_nasc) * 12); writeln('Sua idade é: ', idade div 12, ' anos e ', idade mod 12, ' meses.'); readkey; end. ``` Esse código lê o ano e o mês de nascimento da pessoa, bem como o mês atual. Em seguida, verifica se o mês atual é igual ao mês de nascimento e escreve a mensagem correspondente. Depois, calcula a idade da pessoa levando em conta apenas o mês e o ano e mostra o resultado na tela.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar