Free Basic

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

Question

Информатика

Натальюшка

24 апреля, 12:21

Free Basic

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

+3

Ответы (1)

Знаете ответ?

Алексюша · Answer 1

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

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

Free Basic

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