求pascal编程:已知1900年一月一日为星期一,输入任意一天,判断星期...答:var y,m,d,y1,m1,d1,l:integer;n:longint;begin y:=1900; m:=1; d:=1;writeln('please put date today');readln(y1,m1,d1);repeat inc(n);inc(d);case m of 1,3,5,7,8,10,12:l:=31;4,6,9,11:l:=30;2:if (y mod 4=0) and(y mod 100<>0) or (y mod 400...