Решить уравнение [x^n] + [y^n] = [z^n] при n = 2,7
в натуральных числа на отрезке [1; 1000]
программа нашла три решения. Что интересно, чем меньше n, тем больше решений выдает программа. Ну как тут не поверить в истинность теоремы Ферма.
Код:
REM
REM [x^n] + [y^n] = [z^n]
REM
REM (25, 47, 50)
REM (41, 41, 53)
REM (478, 834, 988)
REM
CLS
DEFDBL A-Z
n = 2.7
m = 1 / n
FOR z = 2 TO 1000
zn = INT(z ^ n)
FOR y = 1 TO z - 1
yn = INT(y ^ n)
x = INT((zn - yn) ^ m) + 1
IF x > y THEN 100
IF INT(x ^ n) + yn = zn THEN PRINT x; y; z
100
NEXT y, z
END