1

输入 - 年份

输出 - 闰年与否

我努力了

Program LeapYear;

var  
    Year:Integer

begin

    writeln('Insert year');
    readln(Year)

    if Year MOD 4 = 0 and Year MOD 100 = 0 and not Year MOD 400 = 0 then
        begin
            writeln(Year,'is leap year')
        end
    else
        begin
            writeln(Year,'is not leap year')
        end

end.

但这不起作用

4

4 回答 4

3

你的算法是错误的。它应该是:

if (year mod 400 = 0) or ((year mod 4 = 0) and not (year mod 100 = 0))
于 2012-11-24T20:54:46.143 回答
3

IsLeapYear函数已在datih.inc文件中定义,因此您无需编写自己的版本,只需添加sysutils单元即可。

于 2012-11-26T14:51:06.140 回答
0

希望能帮助到你:

if((a MOD 4) = 0) and ((a MOD 100) = 0) and ((a MOD 400) = 0) then y:=true 
else y:=false;
于 2018-05-20T17:35:04.333 回答
-1

Program LeapYear;

Uses crt;

var

Year:Integer;

 begin

clrscr;
  writeln('Insert year');
readln(Year);

if (Year MOD 4 = 0)then 
  writeln(Year,'is leap year');
If (Year Mod 4 >=1 ) Then 
  writeln(Year,'is not leap year')

结尾。

于 2018-06-18T11:47:03.120 回答