McLotos
Новичок
- Сообщения
- 20
- Репутация
- 0
Добрый день!
Пытаюсь написать скрипт, который будет генерировать простое число и отправлять его на сервер.
Проблема в проверке, т.е. скрипт не понимает является ли число простым.
Подскажите где что я не так сделал
Пока удалось только выяснить что в FOR вообще скрипт не заходит, не могу понять почему
Пытаюсь написать скрипт, который будет генерировать простое число и отправлять его на сервер.
Проблема в проверке, т.е. скрипт не понимает является ли число простым.
Подскажите где что я не так сделал
Код:
Func Generate()
$n = Random(1000,31357667,1) ;случайное целое число
$in = $n ;сохраняем его для возврата
If Mod($n, 2) = 0 ;число должно быть не четным
Generate()
Else
For $i = 2 To $i <= $n / $i Step +1
While Mod($n, $i) = 0
$n = $n / $i
WEnd
Next
If $n<>$in Then ;если получившееся число не равно сгенерированному
Generate()
Else
Return $in
EndIf
EndIf
EndFunc
Пока удалось только выяснить что в FOR вообще скрипт не заходит, не могу понять почему