Найти все натуральные числа из интервала от 1 до 200, у которых количество делителей равно N (Pascal -> Basic) - VB
Формулировка задачи:
Нужна помощь с задачей
Найти все натуральные числа из промежутка от 1 до 200, у которых количество делителей равно N (N вводить с клавиатуры).
На Паскале видел как делать, но на Бэйсик перевести не могу.
null
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д