New Thread
#10073: pascal解答


200135 (兰生复旦贾逸麟)

School : 上海市娄山中学
ID : 50369
IP address : [101.88.232.179]
Last Login ：
2017-07-26 13:55:02
d532. 文文的求婚 (三) -- 板橋高中教學題 | From: [140.206.244.82] | Post Date : 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