-
Lenguaje
Pascal
-
Descripción
Lea la edad de una persona y diga en qué periodo de vida se encuentra.
Si tiene de 0 a 1 año es bebé
Si tiene de 2 a 7 años es infante
Si tiene de 8 a 13 años es adolescente
Si tiene de 14 a 18 años joven
Si tiene de 19 a 25 años adulto joven
Si tiene de 26 a 50 años adulto
Si tiene de 51 a 60 años adulto mayor
Si tiene de 61 en adelante anciano.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program PeriodoDeVida;
uses crt;
var edad : integer;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
if edad<=1 then
begin
writeln ('Beb'#130);
end;
if (edad>=2) and (edad<=7) then
begin
writeln ('Infante');
end;
if (edad>=8) and (edad<=13) then
begin
writeln ('Adolescente');
end;
if (edad>=14) and (edad<=18) then
begin
writeln ('Joven');
end;
if (edad>=19) and (edad<=25) then
begin
writeln ('Adulto joven');
end;
if (edad>=26) and (edad<=50) then
begin
writeln ('Adulto');
end;
if (edad>=51) and (edad<=60) then
begin
writeln ('Adulto mayor');
end;
if edad>=61 then
begin
writeln ('Anciano');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad : integer;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
if edad<=1 then
begin
writeln ('Beb'#130);
end;
if (edad>=2) and (edad<=7) then
begin
writeln ('Infante');
end;
if (edad>=8) and (edad<=13) then
begin
writeln ('Adolescente');
end;
if (edad>=14) and (edad<=18) then
begin
writeln ('Joven');
end;
if (edad>=19) and (edad<=25) then
begin
writeln ('Adulto joven');
end;
if (edad>=26) and (edad<=50) then
begin
writeln ('Adulto');
end;
if (edad>=51) and (edad<=60) then
begin
writeln ('Adulto mayor');
end;
if edad>=61 then
begin
writeln ('Anciano');
end;
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.