Вопрос по информатике:
VBA excel год является високосным, если его номер кратен 4, однако из кратных 100 високосными являются лишь кратные 400 (например, 1700,1800 и 1900 -невисокосные года, 2000 - високосный). Дано натуральное число n. Определить, являться ли високосным год с таким номером.
Только надоVBA exel
- 06.12.2017 01:01
- Информатика
- remove_red_eye 8230
- thumb_up 21
Ответы и объяснения 1
Sub god()
g = CInt(InputBox("Введите год"))
If (g Mod 400 = 0) Or (g Mod 4 = 0 And g Mod 100 0) Then
MsgBox "Этот год вискосный"
Else
MsgBox "Этот год не вискосный"
End If
End Sub
- 08.12.2017 00:23
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.