问题是:输入一个年数和一个月数,然后判断那个月有几天
我编了这个,然后显示")"expected但是","found.
到底是哪里出错了?求大神帮忙!!!
var year,month:integer;
beginreadln(year,month);if (year mod 400=0) or (year mod 4=0 ) and (year mod 100<>0 ) then
begin
if month =(1,3,5,7,8,10,12) then write('31');
if month =(4,6,9,11) then write('30');
if month =(2) then write('29');
else
end.
end.
我编了这个,然后显示")"expected但是","found.
到底是哪里出错了?求大神帮忙!!!
var year,month:integer;
beginreadln(year,month);if (year mod 400=0) or (year mod 4=0 ) and (year mod 100<>0 ) then
begin
if month =(1,3,5,7,8,10,12) then write('31');
if month =(4,6,9,11) then write('30');
if month =(2) then write('29');
else
end.
end.
