Question

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

Answer 1

Var
A:integer;
Begin
Read(A);
Case A of
1:Write(31);
2:Write(28);
3:Write(31);
4:Write(30);
5:Write(31);
6:Write(30);
7:Write(31);
8:Write(31);
9:Write(30);
10:Write(31);
11:Write(30);
12:Write(31);
else
    Write(0);
End;
End.

Answer 2

Вот программа на языке Pascal, которая решает задачу:

program DaysInMonth;
var
  month: integer;
  days: integer;
begin
  writeln('Введите номер месяца:');
  readln(month);
  
  case month of
    1, 3, 5, 7, 8, 10, 12:
      days := 31;
    4, 6, 9, 11:
      days := 30;
    2:
      days := 28;
    else
      begin
        writeln('Ошибка: неверный номер месяца');
        days := 0;
      end;
  end;
  
  writeln('Количество дней в этом месяце:', days);
end.

Программа сначала запрашивает у пользователя номер месяца. Затем она использует конструкцию `case` для определения количества дней в этом месяце. Если номер месяца соответствует од