Решение уравнения [x^3] + [y^3] = [z^3] - QBasic

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

Решить уравнение [x^3] + [y^3] = [z^3] в натуральных числах при условии x <= y. примечание: функция y=[x] эквивалентна функции y=INT(x) Программа нашла одно решение (9, 10, 12). А есть ли другие решения? Неизвестно.

                    Листинг программы
                
 
                        
                          
                    
REM
REM  [x^3] + [y^3] = [z^3]
REM
REM  OTBET: (9, 10, 12)
REM
 
DECLARE FUNCTION f! (x!, y!, z!)
CLS
 
FOR x = 1 TO 50
FOR y = x TO 50
FOR z = y TO 50
   IF f(x, y, z) = 0 THEN PRINT x; y; z
NEXT z, y, x
END
 
FUNCTION f (x, y, z)
   f = INT(x ^ 3) + INT(y ^ 3) - INT(z ^ 3)
END FUNCTION

Решение задачи: «Решение уравнения [x^3] + [y^3] = [z^3]»

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

DIM x AS LONG, y AS LONG
FOR x=1 TO 100
    y=x^3
    PRINT x,y
NEXT x

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

В этом коде:

DIM x AS LONG, y AS LONG — Объявляются две переменные типа LONG с названиями x и y.
FOR x=1 TO 100 — Задаётся цикл, который будет выполняться для переменной x от 1 до 100 (включительно).
y=x^3 — Внутри цикла переменной y присваивается значение равное квадрату переменной x.
PRINT x,y — Выводится на экран значение переменных x и y.
NEXT x — Закончив цикл, программа переходит к следующей итерации.