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

Question

Информатика

Горя

3 июля, 23:26

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

+5

Ответы (1)

Знаете ответ на вопрос?

Аида · 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.