usaco 1.1.3.Friday(黑色星期五)我是pascal看看:var i,n,day,month,year:longint;a:array[1..7]of longint;beginreadln(n);month:=1;year:=1900;for i:=1 to 7 doa[i]:=0;a[6]:=1;day:=6;for i:=2 to 12*n dobegininc(month);if month =13 then begin inc(ye

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/15 11:31:47
xT͎0~߶f=Qq*7R! N+qX8 xI'i#Ux癙nf7[pLz?>}qx靷}a[{x?Xbm\WxǙֹYĔb <_"OqeOz1XF`Le=k9 QD#, TG#\EzX"%CT\q dǧ_\PD/lw%$#.Me"id_y#L5˴c#dBpGx2/]@J/-k1GKgz uA3bctlhA&E#ߧ^CLNA|<B[^jyga\SW\*Qp :, @XahlOF嗊eDD\nr Igo"] z/B`#C3Gֱ ;_7u6;%m tT}Rɴ Nrd"S$ˡ_Y"ki mL (q)7o܇]oԂ *ܪr}Y5olET5c{y2&bU'su9qIjz\_p+#Ϛ&m~n5 _