Question

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

Answer 1

Var n:byte;
Begin
write('Введите номер месяца: ');
readln(n);
Case n of
1 ,2,12:writeln('Зима');
3..5:writeln('Весна');
6..8:writeln('Лето');
9..11:writeln('Осень')
else writeln('Не корректный номер месяца');
End;
End.

Answer 2

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

pascalCopy code
program Seasons;

var
  monthNumber: integer;

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

  case monthNumber of
    1, 2, 12:
      writeln('Зима');
    3, 4, 5:
      writeln('Весна');
    6, 7, 8:
      writeln('Лето');
    9, 10, 11:
      writeln('Осень');
    else
      writeln('Такого номера месяца не существует');
  end;

  readln;
end.

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