Ввести номер месяца и вывести название времени года. Пример: Введите номер месяца 4 весна



Напишите программу на языке паскаль

Для того чтобы решить эту задачу на языке Паскаль, нам нужно создать программу, которая принимает на вход номер месяца, а затем в зависимости от введенного числа выводит название сезона.

Вот пример программы на языке Паскаль:

pascal
program SeasonByMonth;
var
  month: integer;
begin
  { Вводим номер месяца }
  Write('Введите номер месяца (от 1 до 12): ');
  ReadLn(month);
  { Определяем сезон по номеру месяца }
  case month of
    1, 2, 12: WriteLn('Зима');
    3, 4, 5: WriteLn('Весна');
    6, 7, 8: WriteLn('Лето');
    9, 10, 11: WriteLn('Осень');
  else
    WriteLn('Некорректный номер месяца!');
  end;
end.

Объяснение программы:

1. Объявление переменной: В программе используется переменная month типа integer, в которой будет храниться номер месяца.

2. Ввод данных: Программа предлагает пользователю ввести номер месяца от 1 до 12 с помощью команды Write и считывает введенное значение через ReadLn.

3. Условный оператор: С помощью оператора case программа проверяет, к какому сезону относится введенный номер месяца:

   • Для месяцев 1, 2 и 12 (декабрь, январь, февраль) выводится "Зима".
   • Для месяцев 3, 4 и 5 (март, апрель, май) выводится "Весна".
   • Для месяцев 6, 7 и 8 (июнь, июль, август) выводится "Лето".
   • Для месяцев 9, 10 и 11 (сентябрь, октябрь, ноябрь) выводится "Осень".

4. Обработка ошибок: Если введен номер месяца, который не соответствует допустимому диапазону (от 1 до 12), программа выведет сообщение о некорректном номере месяца.

Пример работы программы:

scss
Введите номер месяца (от 1 до 12): 4
Весна

В этой программе учтены все сезоны, и она корректно работает для любого номера месяца, который вводит пользователь.