1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25

REM 101.22.25. Постройте алгоритм разложения натуральных чисел на простые множители.
REM В какой форме будут представлены результаты работы этого алгоритма?
        
Dim input As Integer REM Число, вводимое с клавиатуры
Dim min As Integer, max As Integer

input = Int(Val(T1.Text)) REM Ввод данных
If input < 1 Then input = 1
If input > 1000000000 Then input = 1000000000
L3.Text = input & ": "

min = 2 REM "min" - число, которое проверяется, является ли оно делителем числа "max"
max = input REM "max" - число, для которого ищутся делители

Do While min < max
    If max Mod min = 0 Then
        L3.Text = L3.Text & min & " "
        max = max / min
    Else
        If min * min > max Then Exit Do
        min = min + 1
    End If
Loop

L3.Text = L3.Text & max