Write a sub program to find the factors of a supplied number

There are two options I can think of for you,

(Qbasic Code)

To Find the Factors of Given Number:

CLS

INPUT "Enter any number"; n

FOR i = 1 TO n

   x = n MOD i

   IF x = 0 THEN

       PRINT i;

   END IF

NEXT i

END

To Find the Factors of Given Number Using COMMON SHARED:

DECLARE SUB factor ()

COMMON SHARED n

CLS

CALL factor

END

SUB factor

INPUT "Enter any number"; n

FOR i = 1 TO n

   x = n MOD i

   IF x = 0 THEN

       PRINT i;

   END IF

NEXT i

END SUB

ιт ιѕ ωнєи ѕσмєσиє ρυтѕ ιи α ¢σ∂є σя ѕσмєтнιиg тнαт вяιиgѕ α νιяυѕ, σя мєѕѕєѕ уσυя gαмє υρ, σя αℓℓσωѕ тнєм тσ ¢нєαт.

αи∂ уєѕ ι нανє вєєи нα¢кє∂ вєfσяє(ιт αιит fυи)

нσρє ι ¢συℓ∂ нєℓρ уσυ.