PRINT
PRINT "自然数を２つの自然数の積に分解します。"
PRINT
INPUT PROMPT "１０００未満の自然数？ ":S
PRINT
LET Q = INT(SQR(S))
DIM T(2,Q)
CALL BUN3(S,T)
FOR i=1 TO 2
FOR j=1 TO Q
IF T(i,j) > 0 THEN
PRINT USING "#####":T(i,j);
END IF
NEXT j
PRINT
NEXT i
PRINT
END
EXTERNAL SUB BUN3(N,A(,))
LET M=INT(SQR(N))
LET C=0
FOR i=1 TO M
IF N/i = INT(N/i) THEN
LET C = C + 1
LET A(1,C) = i
LET A(2,C) = N/i
END IF
NEXT i
END SUB
#######################################################################
自然数を２つの自然数の積に分解します。