OpenJudge

Pascal

  • amy
    amy 15.11.29 回复

    var a:longint;
    begin
    readln(a);
    if ((a mod 4)=0) and ((a mod 100)<>0) or ((a mod 400)=0) then writeln ('yes')
    else writeln ('no');
    end.

想要评论吗?

注册OpenJudge账号,如果您已经注册,请先登入