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

Question

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

Admin

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

Есть ответ

17.12.2022

267

Ответ

Answer 1 · 17.12.2022

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.

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

Ответ

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.

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.