Question

напишите программу, которая получает номер месяца и выводит ему соответствующее время года или сообщение об ошибки(язык паскаль)​

Answer 1

Ответ:

var monthNumber := ReadInteger;

begin

 if (monthNumber >= 3) and (monthNumber <= 5) then begin

   Print('Весна');

 end else if (monthNumber >= 6) and (monthNumber <= 8) then begin

   Print('Лето');

 end else if (monthNumber >= 9) and (monthNumber <= 11) then begin

   Print('Весна');

 end else if (monthNumber = 12) or (monthNumber = 1) or (monthNumber = 2) then begin

   Print('Зима');

 end else begin

   Print('Ошибка');

 end

end.

Answer 2

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

program SeasonChecker;
var
  month: integer;
begin
  writeln('Введите номер месяца (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.

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

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

Введите номер месяца (1-12):
7
Лето

Введите номер месяца (1-12):
13
Ошибка: Неверный номер месяца

Надеюсь, эта программа помогла вам понять, как можно реализовать задачу на языке Pascal.