Question

Напишите программу, которая вводит номер месяца и выводит название времени года на английском языке. При вводе неверного номера месяца должно быть выведено слово 'NO'. Входные данные Входная строка содержит единственное число – номер месяца (возможно, неверный). Выходные данные Нужно вывести название времени года (на английском языке), соответствующее введённому номеру месяца ('winter' – зима, 'spring' – весна, 'summer' – лето, 'autumn' – осень). Если введён неверный номер месяца, программы должна вывести слово 'NO'. ДЛЯ ABCpascal !!!

Answer 1

Var a : Integer;
Begin
  Readln(a);
  Case A of
   12,1..2 : Writeln('winter');
   3..5 : Writeln('spring');
   6..8 : Writeln('summer');
   9..11 : Writeln('autumn');
  else Writeln('NO')
  end;
end.

Answer 2

Конечно, вот пример программы на языке Pascal для решения вашей задачи:

program SeasonIdentifier;

var
  monthNumber: integer;
  season: string;

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

// Определение времени года
  case monthNumber of
    1, 2, 12:
      season := 'winter';
    3, 4, 5:
      season := 'spring';
    6, 7, 8:
      season := 'summer';
    9, 10, 11:
      season := 'autumn';
    else
      season := 'NO';
  end;

// Вывод результата
  if season <> 'NO' then
    writeln('Время года: ', season)
  else
    writeln('NO');
end.

В этой программе используется оператор `case`, чтобы определить временной период в зависимости от введенного номера месяца. Если введен неверный номер месяца, программа выводит 'NO'.