• Lenguaje

    Pascal

  • Descripción

    Indique cuando la edad sea menor de 12 es un niño, cuando la edad es de 13 a 20 años es un adolescente, cuando la edad es de 25 a 40 es un adulto joven, cuando la edad es de 41 a 50 es un adulto intermedio, cuando la edad es de 51 a 60 años es adulto tardío y cuando es mayor a 60 años es un adulto mayor.

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
program EtapaPorEdad;
uses crt;

var edad : integer;
begin
    write ('Ingresa el valor de edad: ');
    readln (edad);
    if edad<12 then
        begin
            writeln ('Ni'#164'o');
        end;
    if (edad>=13) and (edad<=20) then
        begin
            writeln ('Adolescente');
        end;
    if (edad>=25) and (edad<=40) then
        begin
            writeln ('Adulto joven');
        end;
    if (edad>=41) and (edad<=50) then
        begin
            writeln ('Adulto intermedio');
        end;
    if (edad>=51) and (edad<=60) then
        begin
            writeln ('Adulto tard'#161'o');
        end;
    if edad>60 then
        begin
            writeln ('Adulto mayor');
        end;
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.