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

program Seasons;

var month: integer;

begin write('Введите номер месяца: '); 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.

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

program SeasonByMonth;

uses crt;

var
  month: integer;
  season: string;

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

  case month of
    1, 2, 12: season := 'зима';
    3, 4, 5: season := 'весна';
    6, 7, 8: season := 'лето';
    9, 10, 11: season := 'осень';
  else
    season := 'некорректный номер месяца';
  end;

  writeln('Время года: ', season);
  readln;
end.

Пояснение программы:

1. Подключение библиотеки:

   uses crt;
   

   Здесь используется библиотека crt, которая предоставляет функции для работы с консолью, такие как clrscr и readln.

2. Объявление переменных:

   var
     month: integer;
     season: string;
   

   Переменная month будет хранить номер месяца, который введет пользователь, а переменная season будет хранить название времени года.

3. Очистка экрана и ввод данных:

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

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

4. Определение времени года:

   case month of
     1, 2, 12: season := 'зима';
     3, 4, 5: season := 'весна';
     6, 7, 8: season := 'лето';
     9, 10, 11: season := 'осень';
   else
     season := 'некорректный номер месяца';
   end;
   

   Здесь используется оператор case для определения времени года по номеру месяца. Если введен некорректный номер месяца (не в диапазоне от 1 до 12), то присваивается значение 'некорректный номер месяца'.

5. Вывод результата на экран:

   writeln('Время года: ', season);
   readln;
   

   Наконец, выводим название времени года и ждем, пока пользователь нажмет Enter для завершения программы.

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