|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
![]() |
|
Опции темы | Опции просмотра |
![]() |
#1 (permalink) |
Member
Регистрация: 22.10.2016
Сообщений: 62
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
![]() в натуральных числа на отрезке [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 |
![]() |
![]() |
![]() |
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Сейчас вам самое время посмотреть на эти темы Решить уравнение в натуральных числах Помогите решить уравнение. Паскаль Решить дифференциальное уравнение Помогите решить дифференциальное уравнение Решить нелинейное уравнение |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
![]() |
Опции темы | |
Опции просмотра | |
|
|