Простые множители
- Подробности
- Автор: Смирнов Лев
{
Разложить целое число на простые множители
}
Module Module1
Sub Main()
Dim ch, b, c As Integer
Console.WriteLine("Введите число")
ch = Console.ReadLinehttp:
Console.Write("-----Ваше число {0} = ", ch)
Do
For b = 2 To 4000
If ch Mod b = 0 Then
ch = ch / b
Console.Write(b & "*")
Exit For
End If
Next
Loop Until ch = 1
Console.Write(ch)
Console.ReadLine()
End Sub
End Module
ПримечаниеДанный алгоритм не свободен от недостатков. Нет верного признака конца разложения.
Вывод результата тоже не совсем точен.
Е.Е. Квасов