1楼：program year;
var y:integer;
begin
write('please enter the year!');< ..

2楼：这是我编的，错误85，少分号。请各位大侠帮帮忙，找一下错

3楼：如果有什么错误请指出
若有什么更好的思路，算法，请告诉我。 ..

4楼：[更正]原帖中“4年为一闰，没100年多一闰，每400年少一闰”应为“ ..

5楼：program year;
var y:integer;
begin
write('please enter the year!');< ..

6楼：program year;
var
y:integer;
begin
read(y);
if ((y mod 4=0) and (y ..

7楼：var
n:integer;
begin
readln(n);
if n mod 4 0 then
begin
w ..

8楼：program year;
var y:integer;
begin
write('please enter the year!');< ..