發表新討論
#10073: pascal解答


200135 (兰生复旦贾逸麟)

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了微笑 

ZeroJudge Forum