Completar Frases Días de la semana Case Of PascalVersión en línea Estructura Case Of en Pascal por Isaías A. Cuá Dubón 1 WRITELN OF End WRITELN writeln CASE Var 3 Program Readln integer Writeln Begin Else 7 End 'Sábado' 4 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 * * * * * ' ) ; ( ) ; .
Crear