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

Входные данные
Входная строка содержит единственное целое число – номер месяца (возможно, неправильный).

Выходные данные
Выходная строка должна содержать одно целое число – количество дней в этом месяце или 0, если был введён неверный номер месяца.
Для ABCpascal

Вот пример программы на языке ABC Pascal, которая решает поставленную задачу. Программа считывает номер месяца, проверяет его на корректность, и выводит количество дней в месяце или 0, если номер некорректный. Мы считаем, что год невисокосный.

Программа:

pascal
program DaysInMonth;
var
    month, days: Integer;
begin
    { Ввод номера месяца }
    ReadLn(month);
    
    { Определяем количество дней в зависимости от месяца }
    case month of
        1, 3, 5, 7, 8, 10, 12: days := 31; { Январь, март, май, июль, август, октябрь, декабрь }
        4, 6, 9, 11: days := 30; { Апрель, июнь, сентябрь, ноябрь }
        2: days := 28; { Февраль (невисокосный год) }
    else
        days := 0; { Неверный номер месяца }
    end;
    
    { Вывод количества дней или 0 при ошибке }
    WriteLn(days);
end.

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

1. Считывание номера месяца: Программа использует ReadLn для ввода целого числа.
2. Проверка на корректность: С помощью оператора case программа определяет количество дней для каждого месяца.
3. Обработка ошибок: Если введённое число не соответствует номеру месяца (1–12), программа устанавливает days := 0.
4. Вывод результата: Программа выводит либо количество дней, либо 0, если введён некорректный номер месяца.

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

1. Ввод: 2
   Вывод: 28

2. Ввод: 11
   Вывод: 30

3. Ввод: 15
   Вывод: 0 (Ошибка, так как нет месяца с номером 15).

Почему так?

• Использование case делает код простым и читаемым.
• Обработка неверного ввода встроена в else, что позволяет избежать дополнительных проверок.