PASCAL 打印年月日问题

[复制链接]
查看11 | 回复1 | 2009-8-21 11:37:00 | 显示全部楼层 |阅读模式
注意:你这里只给c=365的时候给b赋值,当c=366时自然是0这样应该对了var i,a,b,c,d:integer;beginreadln(a,b);if (a mod 4=0)and(a mod 4000) or (a mod 400=0)then c:=366 else c:=365;if c=365 thencase b of
1,3,5,7,8,10,12:d:=31;
2:d:=28;
end
else case b of
...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行