pascal程序高手,小女子才刚学不懂啊

来源：百度知道 编辑：UC知道 时间：2024/06/21 14:43:53
编程序(注意闰年)
1)已知某年某月，计算天数，年份必在1900～2100之间
例如:输入2004 2 输出29
2)成绩自由转换,规则如下:60以下不合格;60到69合格;70到89良好:90以上优秀

（1）
program day(output,input);
Var
y,m,d:integer;
Begin
read(y,m);
case m of
1,3,5,7,8,10,12:d:=31;
4,6,9,11:d:=30;
2:if (y mod 4=0) and (y mod 100<>0)
or(y mod 400=0)
then d:=29
else d:=28;
end;
writeln(’year=’,y,’month=’,m,’days=’,d);
End.
（2）
program cj(input,output);
var n:integer;
begin
read(n,a);
a:=trunc(n/10);
if a<6 then a:=5
case a of
5:writeln("D");
6:writeln("C");
7,8:writeln("B");
9,10:writeln("A");
end;
end.

呵呵，你也要参加NOIP吗？