Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) Входные данные Вводится единственное число - номер года (целое, положительное, не превышает 30000). Выходные данные Требуется вывести слово YES, если год является високосным и NO - в противном случае.
Pascal
Pascal
More Questions From This User See All
Answers & Comments
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.