Составить программу по выделению разрядов в числе... - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д