Pascal帮帮手

来源：百度知道 编辑：UC知道 时间：2024/05/24 01:26:37
1.输入年月，输出本月有几天
2.输入一个字符，输出该字符及其ASCII码序号值

程序头不写了

1
readln(year);
readln(mon);
case mon of
..1,3,5,7,8,10,12:day:=31;
..4,6,9,11:day:=30;
..2:begin
.......if year mod 4 =0 then day:=28 else day:=29;
end;
writeln(day);
end.

2
var a:char
begin
...readln(a);
...writeln(a);
...writeln(ord(a));
end.