首页| 论坛| 消息
主题:一个简单的问题
回帖:var
n:integer;
begin
readln(n);
if n mod 4 0 then
begin
writeln('No!');
exit;
end
else
begin
if n mod 1000 then
begin
writeln('Yes!');
exit;
end
else
begin
if n mod 400=0 then writeln('Yes!')
else writeln('No!');
end;
end;
end.
下一楼›:program year;
var y:integer;
begin
write('please enter the year!');< ..
‹上一楼:program year;
var
y:integer;
begin
read(y);
if ((y mod 4=0) and (y ..

--> 查看全部回帖(8)
«返回主帖