Пользователь вводит число соответствующие дню недели, программа сообщает рабочий это день или выходной.
Решение:
|
1
2 3 4 5 6 7 8 9 10 11 |
program choise_12;
uses crt; var day: integer; begin clrscr; write(‘ День недели (1-7) > ‘); read(day); if (day>0) and (day<6) then write(‘ Рабочий день’) else if (day=6) or (day=7) then write(‘Выходной день’) else write(‘Error’); readkey; end. |