Подсчитать количество трехзначных чисел, цифры которых в сумме дают 10 - VB

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

Здравствуйте! не уверен в правильности задачи про подсчет количества трехзначных чисел, цифры которых в сумме дают 10...... проверьте пожалуйста

Dim b, i As Integer
 
        For i = 100 To 999 Step 1
 
            If (i Mod 10 + i \ 100 + i \ 10 Mod 10 = 10) Then b = (i Mod 10 + i \ 100 + i \ 10 Mod 10 = 10)
            b = b + 1
        Next i
        Label1.Text = b

Решение задачи: «Подсчитать количество трехзначных чисел, цифры которых в сумме дают 10»

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

                            Private Sub Command1_Click()
Dim b, i As Integer
Dim sp As String
        For i = 109 To 910 Step 1
           sp = ""
           If 10 = i \ 100 + (i Mod 100) \ 10 + i Mod 10 Then
           b = b + 1
           sp = "-------------"
           End If
           List1.AddItem sp & i \ 100 & "  " & (i Mod 100) \ 10 & "  " & i Mod 10
        Next i
       List1.AddItem "": List1.AddItem "vseho:  " & b
End Sub
                        

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

14 голосов , оценка 3.857 из 5

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