杭州交通信息网欧式对称浮雕图片大全:PASCAL闰年算法
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 02:39:14
谢谢
楼上讲的很好。只不过是用C语言表示的。
转成pascal为：
if ((x mod 4 =0) and (x mod 100 <> 0)) or (x mod 400 = 0) then
writeln('闰年')
else
writeln('不是闰年');
---------------------------
算法是楼上给的，楼主应该把分给他~
祝楼主暑假快乐！
PASCAL不会
但闰年算法是：如果这一年（比如2004），能被400整除或
是能被4整除但不能被100整除，那么它就是闰年了
即：x%400==0 || (x%4==0 && x%100!=0)
希望帮得了你~~
我不要分哦！！（给2楼的吧）
补充以下，闰年是指：
1、不能被3600整除
2、能被400整除
3、不能被100整除
4、能被4整除
以上条件越靠上越优先哦！
var y:integer;
begin
readln(y);
if (y mod 400=0) or ((y mod 4=0)and(y mod 400<>0) ) then writeln('yes') else writeln('no');
end.