-
Lenguaje
Pascal
-
Descripción
Permita ingresar 30 edades de personas para luego hallar y mostrar la cantidad de personas que se encuentran entre:
- 1 y 3 años y escribir un mensaje que son Bebés.
- los que se son mayores de 3 años hasta 12 años escribir que son niños.
- Los que son mayores de 12 años hasta 18 años escribir que son adolescentes.
- Los que son mayores de 18 hasta los 40 años escribir que son jóvenes mayores de edad.
- Los que son mayores de 40 años hasta 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
36
37
38
39
40
41
42
43
44
45
46
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
44
45
46
program EdadesDePersonas;
uses crt;
var adolescentes, adultos, bebes, edad, i : integer;
var jovenes_mayores_de_edad, ninos : integer;
begin
adolescentes := 0;
adultos := 0;
bebes := 0;
jovenes_mayores_de_edad := 0;
ninos := 0;
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if (edad>=1) and (edad<=3) then
begin
bebes := bebes+1;
end;
if (edad>=3) and (edad<=12) then
begin
ninos := ninos+1;
end;
if (edad>12) and (edad<=18) then
begin
adolescentes := adolescentes+1;
end;
if (edad>18) and (edad<=40) then
begin
jovenes_mayores_de_edad := jovenes_mayores_de_edad+1;
end;
if (edad>40) and (edad<=60) then
begin
adultos := adultos+1;
end;
writeln;
end;
writeln ('Valor de adolescentes: ', adolescentes);
writeln ('Valor de adultos: ', adultos);
writeln ('Valor de bebes: ', bebes);
writeln ('Valor de jovenes mayores de edad: ', jovenes_mayores_de_edad);
writeln ('Valor de ninos: ', ninos);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var adolescentes, adultos, bebes, edad, i : integer;
var jovenes_mayores_de_edad, ninos : integer;
begin
adolescentes := 0;
adultos := 0;
bebes := 0;
jovenes_mayores_de_edad := 0;
ninos := 0;
for i:=1 to 30 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if (edad>=1) and (edad<=3) then
begin
bebes := bebes+1;
end;
if (edad>=3) and (edad<=12) then
begin
ninos := ninos+1;
end;
if (edad>12) and (edad<=18) then
begin
adolescentes := adolescentes+1;
end;
if (edad>18) and (edad<=40) then
begin
jovenes_mayores_de_edad := jovenes_mayores_de_edad+1;
end;
if (edad>40) and (edad<=60) then
begin
adultos := adultos+1;
end;
writeln;
end;
writeln ('Valor de adolescentes: ', adolescentes);
writeln ('Valor de adultos: ', adultos);
writeln ('Valor de bebes: ', bebes);
writeln ('Valor de jovenes mayores de edad: ', jovenes_mayores_de_edad);
writeln ('Valor de ninos: ', ninos);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.