Question

Напишите программу, которая получает с клавиатуры номер месяца и выводит название соответствующего ему время года или сообщение об ошибке. Пример: Введите номер месяца: 5 . В программе ПАСКАЛЬ!!! Не использовать case

Answer 1

Program n_5;

var
  a: integer;

procedure Error;
begin
  write('ERROR');
  exit;
end;

begin
  write('Введите номер месяца - ');
  readln(a);
  if (a <= 0) or (a > 12) then
    Error
  else
  if (a = 12) or (a = 1) or (a = 2) then
    write('Зима')
  else
  if (a = 3) or (a = 4) or (a = 5) then
    write('Весна')
  else
  if (a = 6) or (a = 7) or (a = 8) then
    write('Лето')
  else
  if (a = 9) or (a = 10) or (a = 11) then
    write('Осень');
end.

Answer 2

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

pascalCopy code
program Seasons;

var
  monthNumber: integer;

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

  if (monthNumber >= 1) and (monthNumber <= 12) then
  begin
    if (monthNumber >= 3) and (monthNumber <= 5) then
      writeln('Весна')
    else if (monthNumber >= 6) and (monthNumber <= 8) then
      writeln('Лето')
    else if (monthNumber >= 9) and (monthNumber <= 11) then
      writeln('Осень')
    else
      writeln('Зима');
  end
  else
    writeln('Ошибка: некорректный номер месяца');
end.

Программа сначала запрашивает у пользователя ввод номера месяца и затем использует вложенные условные операторы if...else для определения соответствующего времени года или вывода сообщения об ошибке, если номер месяца некорректный.