6. Faça um programa que leia o ano atual e o ano de nascimento de uma pessoa e informe a idade
- Resposta(Clique):
- Program cALCULANDO_iDADE ;
var
ano_atu, ano_nasc, idade:integer;
Begin
writeln ('x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x');
writeln (' ');
writeln ('Esse � um programa que se destina a calcular a idade de um usu�rio.');
writeln (' ');
writeln ('======= >>>>>> Para que esse c�culo possa ser feito, ');
writeln (' informe o ano atual (com 4 d�gitos) e ');
writeln (' tamb�m o ano em que voc� nasceu (4 d�gitos).');
writeln (' ');
read (ano_atu);
read (ano_nasc);
idade := ano_atu-ano_nasc;
writeln (' ');
writeln ('Prezado, voc� tem, atualmente, ', idade, ' anos de idade');
writeln (' ');
writeln ('x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x-x');
End.