Предмет: Информатика, автор: HO4UVSEZNAT

Free Basic
Дано натуральное число n. Вывести все простые делители данного числа.

Ответы

Автор ответа: petyaGavrikov
0
Dim As Integer n, k, i, j
Print "Введите n"
Input n
For i = 2 To n / 2
   If n Mod i = 0 Then
    k = 0
    For j = 2 To Sqr(i)
        If i Mod j = 0 Then k = k+1
    Next j
    If k = 0 Then Print i;
    End If
Next i

Пример:
Введите n
52
 2 13
Похожие вопросы
Предмет: Математика, автор: sabalinap66
Предмет: Биология, автор: maltsevapolina720
Предмет: Литература, автор: dasha0o1
Предмет: Математика, автор: Хейли123
Предмет: Алгебра, автор: akylynok