Можно ли натуральное число n представить в виде суммы трех полных квадратов - QBasic (27787)

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

Можно или нет натуральное число п представить в виде суммы трех полных квадратов. Пожалуйста помогите завтра сдавать(

Решение задачи: «Можно ли натуральное число n представить в виде суммы трех полных квадратов»

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

Function Sqr3(n&) As Boolean
    Dim i&, j&, k#
    If n > 2 Then
        For i = 1 To Int(Sqr(n - 2))
            For j = i To Int(Sqr(n - i ^ 2 - 1))
                k = Sqr(n - i ^ 2 - j ^ 2)
                If Int(k) = k Then Sqr3 = True: Exit Function
        Next j, i
    End If
End Function
 
Sub test()
    Dim i&, j&, k&, l&, n&
    Randomize
    For l = 1 To 10000
        i = Int(Rnd * 1000 + 1)
        j = Int(Rnd * 1000 + 1)
        k = Int(Rnd * 1000 + 1)
        n = i * i + j * j + k * k
        If Not Sqr3(n) Then Debug.Print i, j, k, n
    Next l
End Sub

Объяснение кода листинга программы

В этом коде реализована функция Sqr3, которая проверяет, можно ли натуральное число n представить в виде суммы трех полных квадратов. Функция использует два вложенных цикла, чтобы перебрать все возможные значения i, j, k, при которых выполняется условие. Если такое значение найдено, функция возвращает True, иначе — False. В подпрограмме test сгенерированы случайные значения i, j, k, а затем вычисляется значение n как их сумма. Если функция Sqr3 возвращает False, то выводится сообщение об этом. Вот список действий, которые происходят в коде:

Выполняется проверка, больше ли n, чем 2. Если это так, то начинается цикл.
Для каждого значения i от 1 до квадратного корня из (n-2) выполняется цикл.
Для каждого значения j от i до квадратного корня из (n-i^2-1) выполняется цикл.
Вычисляется значение k как квадратный корень из (n-i^2-j^2).
Проверяется, является ли k целым числом. Если это так, то функция Sqr3 возвращает True и завершается.
Если цикл завершается без возврата значения True, то выводится сообщение об этом.
Выполняется цикл 10 000 раз, в котором генерируются случайные значения i, j, k и вычисляется значение n.
Если функция Sqr3 возвращает False, то выводится сообщение об этом.