打印某年某月有几天.输入：年、月,输出：天数.（pascal）

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/09/02 20:54:03

打印某年某月有几天.输入：年、月,输出：天数.（pascal）
每年的1,3,5,7,8,10,12这七个月为31天
每年的4,6,9,11这四个月为30天
每年的2月就需要判断是否为闰年.条件是：年数能被4整除,并且不能被100整除,但能被400整除的年份也为闰年.方法是：用求余的运算求出余数,如果两数相除的余数为0,则能整除,否则不能.
Var year,month,len:integer;
Begin readln (year,month);
Case month of
1,3,5,7,8,10,12:len:=______;
__________ :len:=30;
2 :begin {下面是一个复合语句}
If _______________________then len:=29 {闰年}
Else len:=28; ｛平年｝
end {这是begin 的end}
end; {这是case 的end}
Writeln (len);
End.

31
4,6,9,11
(len mod 400=0) or ((len mod 4=0) and (len mod 1000))
//ls是c的、这个才是pascal的.

已知公元1年1月1日是星期一.任意输入一个年份和月份（公元1年1月以后）,输出该月的日历表.用PASCAL语言从键盘上输入一个日期（某年某月某日）,如2009-2-28.计算这一天属于该年的第几天.要求写出计算闰年的函输入某年某月某日,判断这一天是这一年的第几天?Input 第一行输入一个整数T,表示是下面有T行,接下来每求答 .4．已知2007年1月1日为星期一.设计一函数按照下述格式打印2007年以后（含）某年某月的日历,2007年以前输入一个年份,判断该年是否为闰年,输出该年2月份的天数 pascal程序输入单词按字母表顺序排序输出输入年,月日,运用函数输出这一天是一年的第几天,要求:写出闰年的函数计算和天的函数计算, C语言编程：输入年份和月份计算该月的天数我哪做错了怎么输出的是“该月共有-858993460天" 给定年,月,日,计算该日是该年中的第几天.程序中要求有判断闰年的函数和计算天数的函数. pascal打印下列图形 pascal打印数字图形打印如下图形 pascal