Pascal中的问题，关于闰年

program runnian;
var
y,a,b,c:integer;
begin
writeln('Please input a number.');
readln(y);
a:=(y mod 100);
if a=0 then
begin
b:=((y/100) mod 4);
if b<>0 then
begin
writeln('no');
end
else writeln('yes');
end
else
begin
c:=(y mod 4);
if c=0 then
begin
writeln('yes');
end
else writeln('no');
end;
readln;
end.

b:=((y/100) mod 4);
在PASCAL里不能对INT族的变量使用/除法，得改成

b:=((y div 100) mod 4);

闰年的做法没有那么复杂。

主要有两种题型：

一、输入一个年份，求它是否是闰年。

参考程序：

program runnian; var year:integer;{要用longint也行} begin readln(year); if (year mod 4=0)and(year mod 100<>0)or(year mod 400=0)then write('yes') esle write('no'); end.

类似的

第二种题型：输入两个年号，求之间的闰年数（包括两个年号）。

参考程序：

program runnian; var year1,year2:integer; i,total:integer; begin readln(year1,year2); total:=0; for i:=year1 to year2 do if (i mod 4=0)and(i mod 100<>0)or(i mod 400=0)the total:=total+1; write(total); end.

begin

readln(y);

if (y mod 4=0)and(y mod 100<>0)or(y mod 400=0) then

writeln('yes')

else writeln('no');

end.

至于复杂化吗