-
Lenguaje
Pascal
-
Descripción
Para conocer a la población de atiende, un servicio de salud requiere obtener algunos datos
estadísticos de sus pacientes: En primer lugar, lea la edad de 20 personas, y luego
muestre la cantidad de adultos mayores y la cantidad de menores de edad.
Nota: Se considera un adulto mayor, cuando la persona tiene 65 años o más. Se considera menor de
edad, cuando la persona tiene menos de 18 años.
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
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
program AdultosMayoresYMenoresDeEdad;
uses crt;
var adultos_mayores, edad, i, menores_de_edad : integer;
begin
adultos_mayores := 0;
menores_de_edad := 0;
for i:=1 to 25 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if edad>=65 then
begin
adultos_mayores := adultos_mayores+1;
end;
if edad<18 then
begin
menores_de_edad := menores_de_edad+1;
end;
writeln;
end;
writeln ('Valor de adultos mayores: ', adultos_mayores);
writeln ('Valor de menores de edad: ', menores_de_edad);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var adultos_mayores, edad, i, menores_de_edad : integer;
begin
adultos_mayores := 0;
menores_de_edad := 0;
for i:=1 to 25 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
if edad>=65 then
begin
adultos_mayores := adultos_mayores+1;
end;
if edad<18 then
begin
menores_de_edad := menores_de_edad+1;
end;
writeln;
end;
writeln ('Valor de adultos mayores: ', adultos_mayores);
writeln ('Valor de menores de edad: ', menores_de_edad);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.