Question

Помогите с информатикой пожалуйста​

Answer 1

Ответ:

program god;

var year: integer;

begin

readln(year);

if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then write('YES') else write('NO')

end.

Объяснение:

Answer 2

var

 year: integer;

begin

 write('Введите год: ');

 readln(year);

 if (year mod 4 = 0) and (year mod 100 <> 0) or (year mod 400 = 0) then writeln('YES')

 else writeln('NO');  

end.

Приглашение к вводу можно убрать, если не требуется.