04.txt

C++扩展pl0编译

var a,b,c;
begin
  read(a,b);
  case b of
    1,3,5,7,8,10,12 : c:=31;
    4,6,9,11        : c:=30;
    2               : if a-a/100*100=0 then
                         begin
                           if a-a/400*400=0 then
                              c:=29
                           else
                              c:=28;
                         end
                       else
                         begin
                           if a-a/4*4=0 then 
                             c:=29
                           else
                             c:=28;
                         end;
  end;
  write(c);
end.