Question

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

Answer 1

program godVisоkos;

var

 god: integer;

begin

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

 readln(god);

 if (god mod 4 = 0) and (god mod 100 <> 0) or (god mod 400 = 0) then  

   writeln('ВИСОКОСНЫЙ') else

   writeln('НЕ ВИСОКОСНЫЙ');

end.