Compléter Días de la semana Case Of PascalVersion en ligne Estructura Case Of en Pascal par Isaías A. Cuá Dubón 1 3 Program CASE 7 OF End Writeln 'Sábado' Begin 4 End writeln Else Readln WRITELN WRITELN integer Var DiasSemana_iacd ; dia : ; Writeln ( ' * * * * * INICIO DEL PROGRAMA * * * * * ' ) ; ( 'Ingrese un número entre el 1 y el 7' ) ; Readln ( dia ) ; dia 1 : ( 'Lunes' ) ; 2 : WRITELN ( 'Martes' ) ; : WRITELN ( 'Miércoles' ) ; : WRITELN ( 'Jueves' ) ; 5 : ( 'Viernes' ) ; 6 : WRITELN ( ) ; : WRITELN ( 'Domingo' ) ; Writeln ( 'El número de día ingresado no existe en la semana' ) ; ; ( ' * * * * * FIN DEL PROGRAMA * * * * * ' ) ; ( ) ; .
Créer jeu