Предмет: Информатика,
автор: HO4UVSEZNAT
Free Basic
Дано натуральное число n. Вывести все простые делители данного числа.
Ответы
Автор ответа:
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
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