Question

Составить прогрмму в паскале-кейс.которая по заданному году и номеру месяца m определяет оличество дней в этом месяце

Answer 1

Var
  n, y: integer;

begin
  write('Введите месяц (1-12) и год (2001-2099): ');
  readln(n, y);
  case n of
    1, 3, 5, 7, 8, 10, 12: writeln('31 день');
    4, 6, 9, 11: writeln('30 дней');
    2: if y mod 4 = 0 then write('29 дней') else write('28 дней')
  end
end.

Тестовое решение:
Введите месяц (1-12) и год (2001-2099): 7 2014
31 день

Answer 2

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

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

program DaysInMonth;

var
  year, month, days: integer;

begin
  writeln('Введите год:');
  readln(year);
  
  writeln('Введите номер месяца:');
  readln(month);
  
  case month of
    1, 3, 5, 7, 8, 10, 12:
      days := 31;
    4, 6, 9, 11:
      days := 30;
    2:
      begin
        if (year mod 4 = 0) and (year mod 100 <> 0) or (year mod 400 = 0) then
          days := 29
        else
          days := 28;
      end;
    else
      writeln('Некорректный номер месяца');
  end;
  
  if month in [1..12] then
    writeln('Количество дней в месяце: ', days);
  
  readln;
end.

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