Чи високосний рік?
Потрібно
визначити, чи є заданий рік високосним.
Нагадаємо,
що рік є високосним, якщо його номер кратний 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.
Немає коментарів:
Дописати коментар