Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) Примеры Входные данные 2007 Выходные данные NO Входные да...
Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) Примеры Входные данные 2007 Выходные данные NO Входные данные 2000 Выходные данные YES
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы