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

Узнай цену своей работы

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

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

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

textual
Листинг программы
  1. Private Sub Command1_Click()
  2. Picture1.Cls
  3.     N = Val(Text1)
  4.     S = 0
  5.     For i = 1 To 200
  6.     For p = 1 To 100
  7.         If (i / p) = Int(i / p) Then
  8.             S = S + 1
  9.         End If
  10.     Next
  11. If S = N Then Picture1.Print i
  12.     S = 0
  13.     Next
  14. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы