Помогите пожалуйста!! Pascal.
На вход программе подается `3` числа: номер дня в месяце, номер месяца и год. Вывести номер дня недели (`1`– понедельник, `7`–воскресенье) соответствующего этой дате.
На вход программе подается `3` числа: номер дня в месяце, номер месяца и год. Вывести номер дня недели (`1`– понедельник, `7`–воскресенье) соответствующего этой дате.
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
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.