04.txt

编译原理的课程设计,对PL0进行扩充完成内容如下:1. 基本内容： （1）增加单词：保留字；运算符 （2）修改单词：不等号# 改为 <> （3）增加条件语句的ELSE子句 （4）扩

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.