Day of the Week by uru

var y,m,d:word;begin{$I-}repeat read(y,m,d);If m<3then begin y:=y-1;m:=m+12;end;WriteLn((y+y div 4-y div 100+y div 400+(26*m+16)div 10+d)mod 7)until Ioresult<>0;end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page