print(24576 ** 4 + 48767 ** 4 - 49535 ** 4)

a, b, c, n = 3987, 4365, 4472, 12
print(f'a^n: {a**n}', f'b^n: {b**n}', f'c^n: {c**n}', f'a^n + b^n: {a**n + b**n}', f'a^n + b^n - c^n: {a**n + b**n - c**n}', sep='\n')

a^n: 16134474609751291283496491970515151715346481
b^n: 47842181739947321332739738982639336181640625
c^n: 63976656348486725806862358322168575784124416
a^n + b^n: 63976656349698612616236230953154487896987106
a^n + b^n - c^n: 1211886809373872630985912112862690

Function get_bits(ByVal n As Long, nums As Long) As Long()
    Dim i As Long
    Dim out_array() As Long
    ReDim out_array(nums - 1) As Long
    While n > 0 And i < nums
        out_array(i) = n Mod 2
        n = n \ 2
        i = i + 1
    Wend
    get_bits = out_array()
End Function

Sub print_array(a() As Long)
    Dim x As Variant
    For Each x In a
        Debug.Print x;
    Next x
    Debug.Print
End Sub

Sub test()
    Dim a() As Long, n As Long, i As Long
    For i = 1 To 10
        n = Int(Rnd * 256 * 256)
        a = get_bits(n, 16)
        Debug.Print n,
        print_array a()
    Next i
End Sub

Sub Digist01(a() As Double, d As Long)
    Dim i As Long, j As Long, k As Long, t As Long
    ReDim a(2 ^ d - 1) As Double
    i = 1
    k = 1
    
    For t = 1 To d
        For j = 0 To i - 1
            a(i + j) = k + a(j)
        Next j
        i = i * 2
        k = k * 10
    Next t
End Sub

=ЕСЛИ(A2<0,85;0;ЕСЛИ(A2<1;ПРЕДСКАЗ(A2;{0,5:1};{0,85:1});МИН(ПРЕДСКАЗ(A2;{1:1,5};{1:1,1});1,5)))