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

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.