Alunota11

Download de Livros, Apostilas e literatura em geral!


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 Exercício [Pascal] em 11/4/2014, 11:57 am

Admin

avatar
Admin
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.

http://alunota11.blogspot.com.br

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum