{* Разложение на простые множители *}

REM basic

' Разложение на простые множители целых чисел



20 INPUT "ВВЕДИТЕ ЧИСЛО А = ";А

30 If А = 0 Or А < > INT (A) Then PRINT {МНОЖИТЕЛЕЙ НЕТ!'': End 
}40 A1 =SGN (A) :A = ABS (А): PRINT "ЧИСЛО "А * А1 "РАЗЛАГАЕТСЯ НА

МНОЖИТЕЛИ:"
100 For J = 2 ТО А 
110 К = 0

120 If А/J < > INT (A/J) Then 140

130 А = А/J:K=K+ 1: GoTo 120

140 If K = 0 Then 160

150 PRINT J"^"K

160 If A= 1 Then End

170 Next
180 End