Эта страница была утеряна месяца два назад в результате аварии на сервере и теперь мною восстановлена повторно.

Вариант 1 - Разложение на множители методом перебора

Самый простой метод с точки зрения реализации, целесообразно использовать для чисел размера примерно до 10²⁰ Алгоритм имеет экспоненциальную сложность с точки зрения времени счёта.

ClrText
“INPUT NUMBER”
?->A:sqrA->B
For 2->C To B
If Frac(A/C)=0
Then A/C->A:C■
C-1->C:sqrA->B
IfEnd