一题分解质因数

Paracel_007

101677=17*5981~~~
100119=3*23*1451

N久以前编好的现成程序

Paracel_007

98035=5*7*2801
104027=7*7*11*193（我的两个小号）

10#的问题解决不了了~~~分解大数的质因数是件很麻烦的事情0

[ 本帖最后由 Paracel_007 于 2009-11-13 20:35 编辑 ]

Paracel_007

CLS
DIM i, k AS LONG
DO
DO
INPUT i
LOOP UNTIL i > 1
PRINT i; "=";
k = 2
10 IF i MOD k = 0 THEN PRINT k; : i = i / k ELSE k = k + 1: GOTO 10
DO
DO WHILE i MOD k = 0
PRINT "*"; k;
i = i / k
LOOP
k = k + 1
LOOP UNTIL i = 1
PRINT
INPUT "Exit?Input -1"; t
LOOP UNTIL t = -1
END

最简单的方法，很多年前编的程序，QBasic

Paracel_007

难道手算去解决吗？

16477 质数也