二哥买期货pascal程序 速 40分钟 在线等
大众点评结婚指南
2024-11-28 19:27:42
最佳回答
var tot,y,m,d,num,y1,y2,m1,m2,d1,d2,k,n,i:longint;s:string;f:array[1900.9999,1.12,1.31]of boolean;ss:array[1900.9999]of integer;sss:array[1900.9999,1.12]of integer;procedure check;begin f[y,m,d]:=true;tot:=tot+1;if(tot mod 7=6)or(tot mod 7=0)then f[y,m,d]:=false;if(m=1)... 20210311