Айналатын денелерді тап.
|47
Дұрыс жауап саны: 2
1-сурет
2-сурет​

4321103÷2=2160552,остаток 1; 2160552÷2=1080276,остаток 0; 1080276÷2=540138, остаток 0; 540138÷2=270069, остаток 0; 270069÷2=135034, остаток 1; 135034÷2=67517, остаток 0; 67517÷2=33758, остаток 1; 33758÷2=16878, остаток 0; 16878÷2=8439,остаток 0; 8439÷2=4219,остаток 1; 4219÷2=2109,остаток1; 2109÷2=1054, остаток 1; 1054÷2=527,остаток 0; 527÷÷2=263,остаток 1; 263÷2=131,остаток1; 131÷2=65, остаток 1; 65÷2=32, остаток 1; 32÷2=16,остаток 0; 16÷2=8,остаток 0; 8÷2=4, остаток 0; 4÷2=2, остаток 0; 2÷2=1, остаток 0; 1÷2=0, остаток 1.
(4321103)=(10000011110111001010001)

Sub z()
    Range(Cells(1, 1), Cells(100, 100)).Clear
    n1=5
    n2=3
    n3=4

    k = 1
    A = InitMatrix(n1, k, 1)
    k = k + n1 + 2
    B = InitMatrix(n2, k, 1)
    k = k + n2 + 2
    C = InitMatrix(n3, k, 1)

End Sub

Function InitMatrix(n, cx, cy)
    ReDim A(n, n)
    For i = LBound(A, 1) To UBound(A, 1)
        For j = LBound(A, 2) To UBound(A, 2)
            A(i, j) = Rnd * 200 - 100
            Cells(cx + i, cy + j) = A(i, j)
        Next
    Next

    Cells(cx, cy + n + 1) = "PositiveAverage ="
    Cells(cx, cy + n + 2) = PositiveAverage(A)

    InitMatrix = A
End Function

Function PositiveAverage(A)
    For i = LBound(A, 1) To UBound(A, 1)
        For j = LBound(A, 2) To UBound(A, 2)
            If A(i, j) > 0 Then
                s = s + A(i, j)
                k = k + 1
            End If
        Next
    Next

    PositiveAverage = s / k
End Function