Напишите программу в Паскаль, которая получает номер месяца и выводит его название и время года. Пример:...

program MonthSeason;

var month: integer;

begin writeln('Введите номер месяца:'); readln(month);

case month of

1: writeln('Этот месяц - январь, время года - зима.');
2: writeln('Этот месяц - февраль, время года - зима.');
3: writeln('Этот месяц - март, время года - весна.');
4: writeln('Этот месяц - апрель, время года - весна.');
5: writeln('Этот месяц - май, время года - весна.');
6: writeln('Этот месяц - июнь, время года - лето.');
7: writeln('Этот месяц - июль, время года - лето.');
8: writeln('Этот месяц - август, время года - лето.');
9: writeln('Этот месяц - сентябрь, время года - осень.');
10: writeln('Этот месяц - октябрь, время года - осень.');
11: writeln('Этот месяц - ноябрь, время года - осень.');
12: writeln('Этот месяц - декабрь, время года - зима.');

else

writeln('Неверный номер месяца.');

end;

end.

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

program MonthSeason;

uses
  SysUtils;  { Для использования функции StrToIntDef }

var
  month: integer;
  monthName, season: string;

begin
  { Запрашиваем у пользователя номер месяца }
  writeln('Введите номер месяца:');
  readln(month);
  
  { Определяем название месяца и время года }
  case month of
    1:
      begin
        monthName := 'январь';
        season := 'зима';
      end;
    2:
      begin
        monthName := 'февраль';
        season := 'зима';
      end;
    3:
      begin
        monthName := 'март';
        season := 'весна';
      end;
    4:
      begin
        monthName := 'апрель';
        season := 'весна';
      end;
    5:
      begin
        monthName := 'май';
        season := 'весна';
      end;
    6:
      begin
        monthName := 'июнь';
        season := 'лето';
      end;
    7:
      begin
        monthName := 'июль';
        season := 'лето';
      end;
    8:
      begin
        monthName := 'август';
        season := 'лето';
      end;
    9:
      begin
        monthName := 'сентябрь';
        season := 'осень';
      end;
    10:
      begin
        monthName := 'октябрь';
        season := 'осень';
      end;
    11:
      begin
        monthName := 'ноябрь';
        season := 'осень';
      end;
    12:
      begin
        monthName := 'декабрь';
        season := 'зима';
      end;
  else
    begin
      writeln('Неверный номер месяца.');
      exit;
    end;
  end;
  
  { Выводим результат }
  writeln('Этот месяц - ', monthName, ', время года - ', season, '.');
end.

Пояснения:

1. Запрос ввода:

   • Программа запрашивает у пользователя ввести номер месяца и сохраняет его в переменной month.

2. Определение месяца и времени года:

   • Используется оператор case для определения названия месяца и соответствующего времени года в зависимости от введённого номера.
   • Если номер месяца находится в диапазоне от 1 до 12, программа присваивает значения переменным monthName и season.

3. Обработка неверного ввода:

   • Если введён номер месяца, который не находится в диапазоне от 1 до 12, программа выводит сообщение "Неверный номер месяца" и завершает выполнение с помощью оператора exit.

4. Вывод результата:

   • Если номер месяца корректен, программа выводит сообщение с названием месяца и временем года.

Этот пример демонстрирует базовые принципы работы с условиями и вводом-выводом в языке Паскаль.