04.txt

来自「编译原理的课程设计,对PL0进行扩充完成内容如下:1. 基本内容： （1）增加」· 文本 代码 · 共 23 行

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.