Case3. Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
program Case3; var M:Integer; begin Write('Введите номер месяца: '); Readln(M); Case M of 12,1,2 : Writeln('зима'); 3..5 : Writeln('весна'); 6..8 : Writeln('лето'); 9..11 : Writeln('осень'); end; end. |
Другие задачи из раздела Case можно посмотреть здесь.
Комментарии: