Question

Напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в этом месяце. При вводе неверного номера месяца должно быть выведено сообщение об ошибке. Считается, что год невисокосный. Входные данные Входная строка содержит единственное целое число – номер месяца (возможно, неправильный). Выходные данные Выходная строка должна содержать одно целое число – количество дней в этом месяце или 0, если был введён неверный номер месяца. Для ABCpascal

Answer 1

Program znanija;
Var a : Integer;
Begin 
Readln(a); 
Case A of   
1,3,5,7,8,10,12: Writeln('31');   
11,4,6,9 : Writeln('30');   
2 : Writeln('29'); 
else Writeln('0') 
end;
end.

Answer 2

Программа на ABC Pascal, которая определяет количество дней в указанном месяце:

PROGRAM DaysInMonth;
VAR
    month: INTEGER;
    days: INTEGER;

BEGIN
    WRITE('Введите номер месяца: ');
    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;
            WRITELN('Ошибка: неверный номер месяца');
    END;

IF days > 0 THEN
        WRITELN('Количество дней в указанном месяце: ', days)
    ELSE
        WRITELN('Количество дней неизвестно');
END.

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

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

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