Написать программу, которая выводит название месяца, после ввода его номера. Например, 3 – март, 10 – октябрь.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program choise_6; uses crt; var m:integer; begin clrscr; write(‘Введите номер месяца > ‘); read(m); case m of 1: write(‘Январь’); 2: write(‘Февраль’); 3: write(‘Март’); 4: write(‘Апрель’); 5: write(‘Май’); 6: write(‘Июнь’); 7: write(‘Июль’); 8: write(‘Август’); 9: write(‘Сентябрь’); 10: write(‘Октябрь’); 11: write(‘Ноябрь’); 12: write(‘Декабрь’) else write(‘Error’) end; readkey; end. |
