问题是:输入一个年数和一个月数,然后判断那个月有几天
我编了这个,然后显示")"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.

试试这个
var n,y,r:longint;
begin
read(n,y);
case y of
1,3,5,7,8,10,12:r:=31;
4,6,9,11:r:=30;
2:if ((n mod 4=0) and (n mod 100<>0)) or (n mod 400=0) then r:=29 else r:=28;
end;
write('days=',r);
end.

倒数第二行的end.改成end;

else后面没了？

if语句的格式也不对

为啥不用Case语句？

语法