Day of the Week by *yuko*

var i,j,k:word;begin repeat read(i,j,k);i:=i-ord(j<3);writeln((i+i div 4-i div$64+i div 400+(j+ord(j<3)*12+6)*13div 5+k)mod 7)until 0>0end.

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

download

return to the top page