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

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?