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