d532. 文文的求婚 (三) -- 板橋高中教學題 | From: [140.206.244.82] | 發表日期 : 2015-07-24 21:59

var

  y,x,i,s:integer;

begin

  readln(y,x);

  s:=0;

  for i:=y to x do

  if ((i mod 400=0) or ((i mod 4=0) and (i mod 100<>0))) then inc(s);

  writeln(s);

end.

我里面错了一处，你们找出来并改正就AC了