-
Lenguaje
Pascal
-
Descripción
Lea el nombre de una persona y su edad en años. Debe imprimir el nombre de la persona y su clasificación de acuerdo a los siguientes criterios: la persona es: niño, si la edad esta entre 0 y 10 años; adolecente, si la edad esta entre 11 y 18 años; adulto, si la edad esta entre 19 y 35 años; maduro, si la edad esta entre 36 y 60 años; y anciano, si la edad es mayor de 60.
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
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
program EtapaDeUnaPersona;
uses crt;
var edad : integer;
var nombre_de_la_persona : string;
begin
write ('Ingresa el nombre de la persona: ');
readln (nombre_de_la_persona);
write ('Ingresa el valor de edad: ');
readln (edad);
if (edad>=0) and (edad<11) then
begin
writeln ('Ni'#164'o');
end;
if (edad>=11) and (edad<19) then
begin
writeln ('Adolecente');
end;
if (edad>=19) and (edad<36) then
begin
writeln ('Adulto');
end;
if (edad>=36) and (edad<60) then
begin
writeln ('Maduro');
end;
if edad>=60 then
begin
writeln ('Anciano');
end;
writeln ('Nombre de la persona: ', nombre_de_la_persona);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var edad : integer;
var nombre_de_la_persona : string;
begin
write ('Ingresa el nombre de la persona: ');
readln (nombre_de_la_persona);
write ('Ingresa el valor de edad: ');
readln (edad);
if (edad>=0) and (edad<11) then
begin
writeln ('Ni'#164'o');
end;
if (edad>=11) and (edad<19) then
begin
writeln ('Adolecente');
end;
if (edad>=19) and (edad<36) then
begin
writeln ('Adulto');
end;
if (edad>=36) and (edad<60) then
begin
writeln ('Maduro');
end;
if edad>=60 then
begin
writeln ('Anciano');
end;
writeln ('Nombre de la persona: ', nombre_de_la_persona);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.