这是一个输入今天的年，月，日 输出明天的年，月，日的程序vary,m,d:integer; begin readln(y,m,d); if (m=1)or (m=3) or (m=5) or (m=7) or(m=8) or (m=10) then begin if d=31 then begin d:=1 ;m:=m+1; end else d:=d+1; end; if (m=4) or (m=6) or (m=9) or (m=11) then begin if d=30 then begin d:=1;m:=m+1; end else d:=d+1; end; if m=2 then begin if (y mod(4)=0) and (y mod(100)<>0) or (y mod(400)=0) then begin if d=29 then d:=1; m:=m+1 ; else do d:=d+1; end ; else d:=d+1; end; if m=12 then begin if d=31 then d:=1;m:=m+1;y:=y+1 else d:=d+1 end;writeln(y,m,d);end.
