fj.bas
来自「一个basic语言的编译工具。」· BAS 代码 · 共 6 行
BAS
6 行
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