Найти все натуральные числа из интервала от 1 до 200, у которых количество делителей равно N (Pascal -> Basic) - VB

Формулировка задачи:

Нужна помощь с задачей Найти все натуральные числа из промежутка от 1 до 200, у которых количество делителей равно N (N вводить с клавиатуры). На Паскале видел как делать, но на Бэйсик перевести не могу.

null

У меня фигня какая то получается (

Решение задачи: «Найти все натуральные числа из интервала от 1 до 200, у которых количество делителей равно N (Pascal -> Basic)»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Picture1.Cls
    N = Val(Text1)
    S = 0
    For i = 1 To 200
    For p = 1 To 100
        If (i / p) = Int(i / p) Then
            S = S + 1
        End If
    Next
If S = N Then Picture1.Print i
    S = 0
    Next
End Sub
                        

Оцени полезность:

13 голосов , оценка 4 из 5

Похожие ответы