Пользователь вводит число соответствующие дню недели, программа сообщает рабочий это день или выходной.
Решение:
| 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. |