Чи високосний рік?

Потрібно визначити, чи є заданий рік високосним.
Нагадаємо, що рік є високосним, якщо його номер кратний 4, але не крате ий100, а також якщо він кратний 400.
Вхідні дані
Вхідний файл містить єдине число 0  N  9999, номер року.
Вихідні дані
У вихідний файл виведіть YES, якщо рік є високосним і NO у протилежному випадку.


Вхідні дані
Sample 1
4
 
Sample 2
100
Вихідні дані
Sample 1
YES
 
Sample 2
NO



program vysok;
var n : word;
BEGIN
readln (n);
if (n mod 4=0) and (n mod 100<>0) or (n mod 400=0) then
writeln ('YES') else
writeln ('NO');

END.

Немає коментарів:

Дописати коментар