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
Группа для программистов ( programming )
:Юрий Казекин
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