|
zadach321.BAS |
|
{* Задача321 *}REM basic ' Сформировать движущийся круг радиуса r, центр которой перемещается попеременно в обоих направлениях вдоль вертикального отрезка с заданными границами.INPUT "vvedite m,n"; m, n
If m > n Then SWAP m, n
For i = m To n
k = 0
For j = 1 To i
If i Mod j = 0 Then k = k + 1
Next
If k = 2 Then s = s + i
Next
PRINT s
End
|