Требуется определить, является ли данный год високосным. (Напомним, что год является...

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.