• 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
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.