{* Наменьшее общее кратное *}

REM basic

' Наменьшее общее кратное


20 INPUT "ВВЕДИТЕ ПЕРВОЕ ЧИСЛО А=";А 
30 INPUT "ВВЕДИТЕ ВТОРОЕ ЧИСЛО В = ";В
100 A = INT (A) :B = INT (В)

110 If А = 0 Or В=0 Then PRINT "ЧИСЛО РАВНО НУЛЮ": GoTo 20

120 R2=A: R1=B

130 R = R2 —R1 * INT (R2 / R1)

140 If R < > 0 Then R2 = R1:R1=R: GoTo 130

150 R1 = ABS (R1)

160 R2 = A * В / R1

1000 PRINT «НАИМЕНЬШЕЕ ОБЩЕЕ КРАТНОЕ" 
1010 PRINT "HOK("A","B")="R2 
1020 End