fj.bas

一个basic语言的编译工具。

INPUT A
FOR I=2 TO A
 IF INT(A/I)=A/I THEN PRINT I;"*";:A=A/I:I=I-1:
 IF I>A THEN END
NEXT I