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

Формулировка задачи:

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

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

textual
                            Листинг программы 
                        

                            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
                        

Оцени полезность:

8 голосов , оценка 4.125 из 5

Похожие ответы