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

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

Задать свой вопрос
1 ответ

program godVisоkos;

var

 god: integer;

begin

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

 readln(god);

 if (god mod 4 = 0) and (god mod 100 lt;gt; 0) or (god mod 400 = 0) then  

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

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

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт