Răspuns:
Program P1;
var ziua:integer;
begin
writeln('Introduceti ziua saptamanii: ');read(ziua);
case ziua of
1:writeln('Luni: Matematica, Limba Romana, Limba Franceza (3 in total)');
2:writeln('Marti: Chimia, Matematica, Biologia (3 in total)');
3:writeln('Miercuri: Limba Romana, Educatia Fizica, Fizica (3 in total)');
4:writeln('Joi: Limba Engleza, Informatica, Istoria (3 in total)');
5:writeln('Vineri: Limba Romana, Educatia Fizica, Educatia Plastica (3 in total)');
else
writeln('Eroare');
end;
end.
Explicație:
Introducem ziua de la tastatura. Verificam daca valoare introdusa corespunde cazurilor impuse. In caz că da, afișăm linia de cod a variantei corecte.
Poți modifica textul din '' dacă vrei