CLS
INPUT N
IF N<1 OR N<>INT(N) THEN ?"ERROR!"END
DIM A(16300)
N1=1
FOR I=2 TO INT((N+1)/2)
   IF N1/I=N1\I THEN
   N1=N1/I:J=J+1:A(J)=I:I=I-1
END IF
IF A(1)=0 THEN ? N;"=";N
FOR I=1 TO J+1
  IF A(I)<>0 THEN ? A(I)
NEXT I
END

[url=http://www.programfan.com/club/showbbs.asp?id=90603]请参阅此贴[/url]