Решение задач на циклические алгоритмы в Visual Basic 6.0

Posted by obzor under Basic

Помогите пожалуйсиа написать программу с условием:
1)Найти все натуральные числа а, в и с из интервала от 1 до 20, для которых выполняется равенство а^2 + в^2 = с^2.
2)Дано натуральное число. Верно ли, что в данном числе цифра А встречается более двух раз. А задается.

Aleksandr H.

пили под себя

Sub s1()
    Dim a, b, c
    For a = 1 To 20
        For b = 1 To 20
            For c = 1 To 20
                If a * a + b * b = c * c Then
                    Debug.Print a, a * a, b, b * b, c, c * c
                End If
            Next c
        Next b
    Next a
End Sub

Sub s2()
    Dim a, n, k
    n = CLng(InputBox("A:", "", 1231145628))
    a = CInt(InputBox("a:", "", 2))
    Do While n > 0
        If n Mod 10 = a Then k = k + 1
        n = n \ 10
    Loop
    If k >= 2 Then
        Debug.Print "OK"
    Else
        Debug.Print "NOK"
    End If
End Sub

тема на форуме

Похожие статьи

• Конструкция while(true)