• Lenguaje

    Pascal

  • Descripción

    Permita pedir fechas (día, mes) si los valores están en las siguientes fechas mostrar mensajes.
    - 14 febrero "DÍA DE LA AMISTAD"
    - 1 de mayo "DÍA DEL TRABAJO"
    - 10 de mayo "DÍA DE LA MADRE"
    - 17 de junio "DÍA DEL PADRE"
    - 25 de junio "DIA DE PATRONA SANTA ANA FIESTAS JULIAS"
    - 6 de agosto "DIA FIESTAS AGOSTINAS"

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

var dia, mes : integer;
begin
    write ('Ingresa el valor de dia: ');
    readln (dia);
    write ('Ingresa el valor de mes: ');
    readln (mes);
    if (dia=14) and (mes=2) then
        begin
            writeln ('D'#214'A DE LA AMISTAD');
        end;
    if (dia=1) and (mes=5) then
        begin
            writeln ('D'#214'A DEL TRABAJO');
        end;
    if (dia=10) and (mes=5) then
        begin
            writeln ('D'#214'A DE LA MADRE');
        end;
    if (dia=17) and (mes=6) then
        begin
            writeln ('D'#214'A DEL PADRE');
        end;
    if (dia=25) and (mes=6) then
        begin
            writeln ('DIA DE PATRONA SANTA ANA FIESTAS JULIAS');
        end;
    if (dia=6) and (mes=8) then
        begin
            writeln ('DIA FIESTAS AGOSTINAS');
        end;
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.