Question

Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) Примеры Входные данные 2007 Выходные данные NO Входные данные 2000 Выходные данные YES

Answer 1

var
 n:integer;
begin
 assign (input,'input.txt');
 assign(output,'output.txt');
 reset(input);
 rewrite(output);
 readln(n);
 if ((n mod 4)=0) and ((n mod 100)<>0) or ((n mod 400)=0) then
     writeln('YES')
  else
     writeln('NO');

end.