Реализации алгоритмов/Метод Лемана: различия между версиями

Содержимое удалено Содержимое добавлено
→‎Delphi: в финальном условии второго шага алгоритма был не правильный знак
Нет описания правки
Строка 64:
for ($d=0; $d < int(($N**(1/6))/(4*($k**.5)))+1; $d++) {
$A = int((4*$k*$N)**.5)+$d;
$t = ($A**.52) - 4*$k*$N;