Составить программу по выделению разрядов в числе...

@Mary148666 · Регистрация: 24.05.2011

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

Задача: Дано трехзначное число. Составить алгоритм выделения его разрядов и проверки, есть ли среди них нечетная цифра.
Пожалуйста, помогите))

@~~Dzhej-Dzhej~~ · 24.05.2011, 16:09

Visual Basic

Private Sub Command1_Click()
    Dim z As Integer, i As Integer, f As Boolean
    z = CInt(InputBox("ââåäèòå ÷èñëî"))
    f = False
    For i = 1 To 3
        If ((z Mod 10) Mod 2 = 1) Then f = True
        z = z \ 10
    Next
    MsgBox (IIf(f, "åñòü", "íåòó"))
End Sub

@Mary148666 0 / 0 / 0 Регистрация: 24.05.2011 Сообщений: 3
		1
	Составить программу по выделению разрядов в числе... 24.05.2011, 15:55. Показов 677. Ответов 1 Метки нет (Все метки) Задача: Дано трехзначное число. Составить алгоритм выделения его разрядов и проверки, есть ли среди них нечетная цифра. Пожалуйста, помогите)) 0

	24.05.2011, 16:09