Submission #3014411

---

Source Code Expand

var
x,y,i,j,c,d,e,b:longint;
begin
read(x,y);
for i:=x to y do
if (i mod 4=0) and (i mod 100<>0) or (i mod 400=0) then break;
while(i<=y) do
begin
if (i mod 4=0) and (i mod 100<>0) or (i mod 400=0) then inc(e);
i:=i+4;
end;
writeln(e);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result