1.
var t:integer;
begin
readln(t);
case t of
90 .. 100:writeln(*A*);
80 .. 89:writeln(*B*);
70 .. 79:writeln(*C*);
60 .. 69:writeln(*D*);
else writeln(*E*);
end;
end.
2.
var s,t:integer;
begin
read(s);
readln(t);
case t of
1,3,5,7,8,10,12:writeln(31);
4,6,9,11:writeln(30);
else if (s mod 4 = 0) and (s mod 100 <>0) or (s mod 400 = 0) writeln(29);
else writeln(28);
end;
end.
![[瞌睡]](/static/emoticons/u778cu7761.png)
反正LZ学得好不好不关我事,祝LZ像我一样永远成不了大神……