ayuda con programa de días de semanas
Publicado por Roberto (19 intervenciones) el 08/11/2020 23:52:55
saludos a la comunidad no tengo ni idea de crear un conjunto de dias de la semana en pascal. He intentado con este codigo y no funciona. Ni idea de porqué 'in' que equivale a 'pertenece a' no me resulta.
1
2
3
4
5
6
7
8
9
10
11
12
13
program DiasDeSemana;
uses crt;
var
sem:string;begin clrscr;
write('Ingrese el nombre de un dia de la semana ');
readln(sem);
if sem in ['lunes','martes','miercoles','jueves','viernes','sabado','domingo'] then
writeln('Es un dia de semana')
else
writeln('No es un dia de semana');
writeln('Pulse una tecla');
readkey; end.Valora esta pregunta
0