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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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