Question

Помогите пожалуйста!! Pascal. На вход программе подается `3` числа: номер дня в месяце, номер месяца и год. Вывести номер дня недели (`1`– понедельник, `7`–воскресенье) соответствующего этой дате.

Answer 1

Ответ:

Объяснение:

var

 d, m, y, w, a: longint;

begin

 readln(d, m, y);

 a := (14 - m) div 12;

 y := y - a;

 m := m + 12 * a - 2;

 w := (d + 31 * m div 12 + y + y div 4 - y div 100 + y div 400 + 6) mod 7 + 1;

 writeln(w);

 readln

end.

Answer 2

Конечно, я могу помочь вам с написанием программы на Pascal, которая принимает на вход три числа (номер дня в месяце, номер месяца и год) и выводит номер дня недели.

Вот пример программы:

program DayOfWeek;

var
  day, month, year, dayOfWeek: integer;

begin
  // Ввод данных
  write('Введите номер дня в месяце: ');
  readln(day);

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

write('Введите год: ');
  readln(year);

// Проверка корректности введенных данных
  if (day < 1) or (day > 31) or (month < 1) or (month > 12) or (year < 1753) then
  begin
    writeln('Некорректная дата!');
    exit;
  end;

// Вычисление номера дня недели по алгоритму Зеллера
  if month < 3 then
  begin
    month := month + 12;
    year := year - 1;
  end;

dayOfWeek := (day + 2 * month + 3 * (month + 1) div 5 + year + year div 4 - year div 100 + year div 400) mod 7;

// Вывод результата
  writeln('Номер дня недели: ', dayOfWeek + 1);
end.

Программа использует алгоритм Зеллера для вычисления номера дня недели. Обратите внимание, что в данной программе предполагается, что год не может быть меньше 1753, так как в этом году был введен Григорианский календарь. Если вам нужно работать с более ранними годами, вам, возможно, потребуется внести соответствующие изменения в алгоритм.