Возведение в степень - QBasic

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

Надо найти следующее: 9^999999+9^999999

Код к задаче: «Возведение в степень - QBasic»

textual
Sub www()
    Dim a(250000) As Long, b  As Long, c As Long
    Dim i As Long, j As Long, l As Long, n As Long, m As Long
    Dim t As Single
    
    Open "Output.txt" For Output As #1
    
    n = 249999
    m = 6561
 
    a(0) = 1458
    
    t = Timer
    For i = 1 To n
        j = -1
        While j < l Or c > 0
            j = j + 1
            b = a(j) * m + c
            a(j) = b Mod 10000
            c = b \ 10000
        Wend
        l = j
    Next
    Print #1, a(l) & "";
    For i = 1 To l
        Print #1, Right$("0000" & a(l - i), 4);
    Next
    Close
    Debug.Print Timer - t
End Sub

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ