Определить, является ли год N високосным

@bulletran · Регистрация: 31.03.2012

Author24 — интернет-сервис помощи студентам

Сделать программу на Visual Basic в виде Console Application:
Дано натуральное число n-год рождения. Определить, является ли этот год високосным.

@edward_freedom · 17.10.2012, 17:34

Не по теме:

bulletran, это типа нам дали задание? Не пожалуйста, не спасибо. Народ вообще обнаглел

@bulletran · 17.10.2012, 17:54 **[ТС]**

edward_freedom, Нет, я писал что бы хоть кто-то помог, а мою тему укоротили (отредактировали)... Буду очень благодарен за помощь, очень нужно!!!!!!!!!

@Казанский · 17.10.2012, 20:10

Принцип такой

Visual Basic

1	if isdate("2/29/" & n) then 'високосный

@Pavel55 · 17.10.2012, 21:28

VB.NET

1	MsgBox(Date.IsLeapYear(Now.Year))

Вместо Now.Year - подставьте свою дату

OldFedor · 18.10.2012, 10:07

Обращаю Ваше внимание на то, что
високосным считается по правилам год, дата которого
делится на 400, а не на 4.
Хотя в быту на 4.

@~~Апострофф~~ · 18.10.2012, 10:20

Не по теме:

OldFedor, не совсем так:scratch:

Сообщение от WIKI

...год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. Год не является високосным, если он не кратен 4, либо он кратен 100, но при этом не кратен 400.

OldFedor · 18.10.2012, 14:14

Верно, Апострофф!

@bulletran · 18.10.2012, 17:00 **[ТС]**

Апострофф, У меня получилось=)))

VB.NET

Imports System
 
Module Module1
 
    Sub Main()
        Dim yeah, M As Integer
        Console.WriteLine("Введите год рождения")
        yeah = Console.ReadLine()
        M = yeah \ 4
        If M * 4 = yeah Then Console.WriteLine("Год высокосный")
        If M * 4 <> yeah Then Console.WriteLine("Год не высокосный")
 
 
 
    End Sub
 
End Module

Памирыч · 18.10.2012, 17:21

bulletran, а что Вас не устроило в посте №5?
В .NET уже есть готовые обертки, к чему городить велосипед?

@~~Апострофф~~ · 18.10.2012, 17:25

Не по теме:

bulletran, я то здесь причём?
Кстати, ответ неверный:)
Введи 1900 или 2100 год и убедись.

@bulletran · 18.10.2012, 17:34 **[ТС]**

Апострофф, блииин... а как исправить?

@~~Апострофф~~ · 18.10.2012, 17:52

VB.NET

        If yeah Mod 4 = 0 And yeah Mod 100 > 0 Or yeah Mod 400 = 0 Then
            Console.WriteLine("Год вИсокосный")
        Else
            Console.WriteLine("Год не вИсокосный")
        End If

@bulletran · 18.10.2012, 20:47 **[ТС]**

Апострофф, Спасибо большое))

@edward_freedom
	17.10.2012, 17:34 #2
	Не по теме: bulletran, это типа нам дали задание? Не пожалуйста, не спасибо. Народ вообще обнаглел 0

@bulletran 0 / 0 / 0 Регистрация: 31.03.2012 Сообщений: 46
	17.10.2012, 17:54 [ТС]	3
	edward_freedom, Нет, я писал что бы хоть кто-то помог, а мою тему укоротили (отредактировали)... Буду очень благодарен за помощь, очень нужно!!!!!!!!! 0

OldFedor 7484 / 4148 / 474 Регистрация: 25.08.2012 Сообщений: 11,529 Записей в блоге: 11
	18.10.2012, 10:07	6
	Обращаю Ваше внимание на то, что високосным считается по правилам год, дата которого делится на 400, а не на 4. Хотя в быту на 4. 0

@~~Апострофф~~
	18.10.2012, 10:20 #7
	Не по теме: OldFedor, не совсем так:scratch: Сообщение от WIKI ...год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. Год не является високосным, если он не кратен 4, либо он кратен 100, но при этом не кратен 400. 1

OldFedor 7484 / 4148 / 474 Регистрация: 25.08.2012 Сообщений: 11,529 Записей в блоге: 11
	18.10.2012, 14:14	8
	Верно, Апострофф! 0

Памирыч Почетный модератор 21400 / 9134 / 1083 Регистрация: 11.04.2010 Сообщений: 11,014
	18.10.2012, 17:21	10
	bulletran, а что Вас не устроило в посте №5? В .NET уже есть готовые обертки, к чему городить велосипед? 0

@~~Апострофф~~
	18.10.2012, 17:25 #11
	Не по теме: bulletran, я то здесь причём? Кстати, ответ неверный:) Введи 1900 или 2100 год и убедись. 1

@bulletran 0 / 0 / 0 Регистрация: 31.03.2012 Сообщений: 46
	18.10.2012, 17:34 [ТС]	12
	Апострофф, блииин... а как исправить? 0

@bulletran 0 / 0 / 0 Регистрация: 31.03.2012 Сообщений: 46
	18.10.2012, 20:47 [ТС]	14
	Апострофф, Спасибо большое)) 0

Определить, является ли год N високосным

Решение