编写程序,输入10个日期,分别输出第二天的日期。输入日期的格式是月、日、年,输出日
问题补充:
编写程序,输入10个日期,分别输出第二天的日期。输入日期的格式是月、日、年,输出日期的格式是月-日-年。
pascal!急!
补充:编写程序,输入10个日期,分别输出第二天的日期。输入日期的格式是月、日、年,输出日期的格式是月-日-年。输入:7 31 199412 31 19993 21 20125 30 201610 23 20002 29 20048 30 19879 1 199211 30 19916 29 1900输出:8-1-19941-1-20003-22-20125-31-201610-24-20003-1-20048-31-19879-2-199212-1-19916-30-1900最佳答案
const
c_days:array[1..12] of integer=(31,29,31,30,31,30,31,31,30,31,30,31);
var
i,y,m,d:integer;
begin
for i:=1 to 10 do
begin
readln(m,d,y);
if (d=c_days[m]) or ((d=28) and (m=2) and (not ((y mod 4=0) and (y mod 100 <>0)) or (y mod 400=0))) then
begin
d:=1;
inc(m);
if m>12 then
begin
m:=1;
inc(y);
end;
end else
inc(d);
writeln(m,'-',d,'-',y);
end;
end.
追问:
谢谢,总是在我最需要的时候出现!谢谢!
最佳答案由网友 whoami1978 提供
其他回答
暂无其它回答!