黑色星期五 Friday.pas

<p> &nbsp;<span style="font-size:22pt;font-family:'Gill Sans MT';">13</span><span style="font-size:22pt;font-family:华文新魏;">号又是一items星期</span><span style="font-size:22pt;font-family:'Gill Sans MT';">5</span><span style="font-size:22pt;font-family:华文新魏;">。</span><span style="font-size:22pt;font-family:'Gill Sans MT';">13</span><span style="font-size:22pt;font-family:华文新魏;">号在星期五比在其他日子少吗</span><span style="font-size:22pt;font-family:'Gill Sans MT';">?</span><span style="font-size:22pt;font-family:华文新魏;">为了回答这items</span><span style="font-size:22pt;font-family:华文新魏;">问题</span><span style="font-size:22pt;font-family:'Gill Sans MT';">,</span><span style="font-size:22pt;font-family:华文新魏;">写一items程序，要求计算每items月的十三号落在周一到周日的次数。</span><span style="font-size:22pt;font-family:华文新魏;">给出</span><span style="font-size:22pt;font-family:'Gill Sans MT';">N</span><span style="font-size:22pt;font-family:华文新魏;">年的一items周期，要求计算</span><span style="font-size:22pt;font-family:'Gill Sans MT';">1900</span><span style="font-size:22pt;font-family:华文新魏;">年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">1</span><span style="font-size:22pt;font-family:华文新魏;">月</span><span style="font-size:22pt;font-family:'Gill Sans MT';">1</span><span style="font-size:22pt;font-family:华文新魏;">日至</span><span style="font-size:22pt;font-family:'Gill Sans MT';">1900+N-1</span><span style="font-size:22pt;font-family:华文新魏;">年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">12</span><span style="font-size:22pt;font-family:华文新魏;">月</span><span style="font-size:22pt;font-family:'Gill Sans MT';">31</span><span style="font-size:22pt;font-family:华文新魏;">日</span><span style="font-size:22pt;font-family:华文新魏;">中十三号落在周一到周日的次数，</span><span style="font-size:22pt;font-family:'Gill Sans MT';">N</span><span style="font-size:22pt;font-family:华文新魏;">为正整数且不大于</span><span style="font-size:22pt;font-family:'Gill Sans MT';">400. </span> </p> <p> <span style="font-size:22pt;font-family:'Gill Sans MT';"></span><span style="font-size:22pt;font-family:华文新魏;">这里有一些你要知problems的</span><span style="font-size:22pt;font-family:'Gill Sans MT';">: </span> </p> <p> <span style="font-size:22pt;font-family:'Gill Sans MT';"></span><span style="font-size:22pt;font-family:'Gill Sans MT';">1900</span><span style="font-size:22pt;font-family:华文新魏;">年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">1</span><span style="font-size:22pt;font-family:华文新魏;">月</span><span style="font-size:22pt;font-family:'Gill Sans MT';">1</span><span style="font-size:22pt;font-family:华文新魏;">日是星期一</span><span style="font-size:22pt;font-family:'Gill Sans MT';">.4,6,11</span><span style="font-size:22pt;font-family:华文新魏;">和</span><span style="font-size:22pt;font-family:'Gill Sans MT';">9</span><span style="font-size:22pt;font-family:华文新魏;">月有</span><span style="font-size:22pt;font-family:'Gill Sans MT';">30</span><span style="font-size:22pt;font-family:华文新魏;">天</span><span style="font-size:22pt;font-family:'Gill Sans MT';">.</span><span style="font-size:22pt;font-family:华文新魏;">其他月份除了</span><span style="font-size:22pt;font-family:'Gill Sans MT';">2</span><span style="font-size:22pt;font-family:华文新魏;">月都有</span><span style="font-size:22pt;font-family:'Gill Sans MT';">31</span><span style="font-size:22pt;font-family:华文新魏;">天</span><span style="font-size:22pt;font-family:'Gill Sans MT';">.</span><span style="font-size:22pt;font-family:华文新魏;">闰年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">2</span><span style="font-size:22pt;font-family:华文新魏;">月有</span><span style="font-size:22pt;font-family:'Gill Sans MT';">29</span><span style="font-size:22pt;font-family:华文新魏;">天</span><span style="font-size:22pt;font-family:'Gill Sans MT';">,</span><span style="font-size:22pt;font-family:华文新魏;">平年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">2</span><span style="font-size:22pt;font-family:华文新魏;">月有</span><span style="font-size:22pt;font-family:'Gill Sans MT';">28</span><span style="font-size:22pt;font-family:华文新魏;">天</span><span style="font-size:22pt;font-family:'Gill Sans MT';">.</span><span style="font-size:22pt;font-family:华文新魏;">年份可以被</span><span style="font-size:22pt;font-family:'Gill Sans MT';">4</span><span style="font-size:22pt;font-family:华文新魏;">整除的为闰年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">(1992=4*498 </span><span style="font-size:22pt;font-family:华文新魏;">所以</span><span style="font-size:22pt;font-family:'Gill Sans MT';"> 1992</span><span style="font-size:22pt;font-family:华文新魏;">年是闰年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">,</span><span style="font-size:22pt;font-family:华文新魏;">但是</span><span style="font-size:22pt;font-family:'Gill Sans MT';">1990</span><span style="font-size:22pt;font-family:华文新魏;">年不是闰年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">)</span><span style="font-size:22pt;font-family:华文新魏;">以上规则不适合于世纪年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">.</span><span style="font-size:22pt;font-family:华文新魏;">可</span><span style="font-size:22pt;font-family:华文新魏;">以被</span><span style="font-size:22pt;font-family:'Gill Sans MT';">400</span><span style="font-size:22pt;font-family:华文新魏;">整除的世纪年为闰年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">,</span><span style="font-size:22pt;font-family:华文新魏;">否则为平年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">.</span><span style="font-size:22pt;font-family:华文新魏;">所以</span><span style="font-size:22pt;font-family:'Gill Sans MT';">,1700,1800,1900</span><span style="font-size:22pt;font-family:华文新魏;">和</span><span style="font-size:22pt;font-family:'Gill Sans MT';">2100</span><span style="font-size:22pt;font-family:华文新魏;">年是平年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">,</span><span style="font-size:22pt;font-family:华文新魏;">而</span><span style="font-size:22pt;font-family:'Gill Sans MT';">2000</span><span style="font-size:22pt;font-family:华文新魏;">年是闰年</span><span style="font-size:22pt;font-family:'Gill Sans MT';">.</span><span style="font-size:22pt;font-family:华文新魏;">请不要预先算好数据</span><span style="font-size:22pt;font-family:'Gill Sans MT';">! </span> </p> <div> </div>

&nbsp;<span style="font-size:26pt;font-family:华文新魏;">一items正整数</span><span style="font-size:26pt;font-family:'Gill Sans MT';">n. </span> <div> </div>

&nbsp;<span style="font-size:26pt;font-family:华文新魏;">七items在一行且相points开的整数</span><span style="font-size:26pt;font-family:'Gill Sans MT';">,</span><span style="font-size:26pt;font-family:华文新魏;">它们代表</span><span style="font-size:26pt;font-family:'Gill Sans MT';">13</span><span style="font-size:26pt;font-family:华文新魏;">日是星期六</span><span style="font-size:26pt;font-family:'Gill Sans MT';">,</span><span style="font-size:26pt;font-family:华文新魏;">星期日</span><span style="font-size:26pt;font-family:'Gill Sans MT';">,</span><span style="font-size:26pt;font-family:华文新魏;">星期一</span><span style="font-size:26pt;font-family:'Gill Sans MT';">...</span><span style="font-size:26pt;font-family:华文新魏;">星期五的次数</span><span style="font-size:26pt;font-family:'Gill Sans MT';">. </span> <div> </div>