Question

请解答PASCAL题

计算1901年2099年之间的某月某日是星期几。

Answer 1

program YMDToW;
var
y, m, d, w: Integer;
begin
Write('year: '); Readln(y);
Write('month: '); Readln(m);
Write('day: '); Readln(d);
if m < 3 then
begin
m := m + 12;
y := y - 1;
end;
w := y + y div 4 + y div 400 - y div 50 +
26 * (m + 1) div 10 + d - 1;
Writeln('Day of week: ', w mod 7);
end