Составить программу по выделению разрядов в числе... - 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
Похожие ответы