回帖：program year;
var
y:integer;
begin
read(y);
if ((y mod 4=0) and (y mod 1000)) or (y mod 400=0)
then
write('YES')
else
write('NO');
end.
主题：一个简单的问题
下一楼›：var
n:integer;
begin
readln(n);
if n mod 4 0 then
begin
w ..
‹上一楼：program year;
var y:integer;
begin
write('please enter the year!');< ..
n:integer;
begin
readln(n);
if n mod 4 0 then
begin
w ..
‹上一楼：program year;
var y:integer;
begin
write('please enter the year!');< ..