(year mod 4=0) then day:=29 else day:=28;
end;
writeln(‘day=’，day)； readln；
end.
Case语句
Case 表达式 of 常量表1：语句1； …… 常量表n：语句n； [else 语句n+1] ;
end; 格式说明：常量表为有序类型数据。表达式要与常量类型一致。 常量后的语句为一条语句。如果要完成多条语句功能，要将这些语句写成
16题
打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4 整除，并且不能被100整除；或者能被400整除的整数年份。）
(year mod 4=0) and (year mod 100<>0 ) or (year mod 400=0)
program qday;
var year,month,day:integer;
if month=2 then
if (year mod 4=0) and (year mod 100 <>0) or (year mod
400=0) then day:=29 else day:=28;
writeln('day=',day); readln;
用嵌套
end.
1,3,5,7,8,10,12
1015: 【入门】求三个数的大小顺序 题目描述:输入三个数，按由大到小顺序打印出来。
输入只有一行，包括3个整数。之间用一个空格分开。 输出只有一行，包括3个整数。之间用一个空格分开。 样例输入 3 8 2 样例输出 8 3 2
请同学上黑板写
பைடு நூலகம்
1010-1019选做
复合语句。
表达式只能是序数类型。序数类型包括整型、字符型、 布尔型、枚举型、子界型。
1018: 【入门】找出最经济型的包装箱型号 题目描述 已知有A，B，C，D，E五种包装箱，为了不浪费材料，小于10公斤的用A型，大于等于10 公斤小于20公斤的用B型，大于等于20公斤小于40公斤的用C型，大于等于40公斤的小于 50公斤的用D型，大于等于50公斤小于80公斤的用E型。现在输入一货物的重量（小于80 公斤），找出最经济型的包装箱型号。 输入只有一行，包括一个整数。 输出只有一行（这意味着末尾有一个回车符号），包括1个字符。 样例输入 8 样例输出 A
4,6,9,11 2
program day_case；
31 30
28
var year,month,day:integer;
29
begin
readln(year,month);
case month of
1,3,5,7,8,10,12: day:=31;
4,6,9,11 : day:=30;
2: if (year mod 400=0) or (year mod 100<>0) and
begin
readln(year,month);
if (month=1) or (month=3) or (month=5) or (month=7) or (month=8) or (month=10) or (month=12) then day:=31；
if (month=4) or (month=6) or (month=9) or (month=11) then day:=30 ；