Обработка числовой последовательности - VB (172096)

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

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

3. Обработка числовой последовательности с неопределенным количеством элементов. Во вводимой последовательности натуральных чисел с неопределенным количеством элементов найти все числа N, не превосходящие заданного числа k (1 < k < 100), такие, что у числа n + 75 сумма цифр – простое число. Если таких чисел нет, - сообщить об этом. помогите решить(

Решение задачи: «Обработка числовой последовательности»

textual
Листинг программы
Dim A() As Single, N As Integer, k As Single, txt, numb As Single, sum
Dim P As Boolean
N = Round(Val(InputBox("N")))
If N <= 1 Then Exit Sub
k = Val(InputBox("k"))
If k >= 100 Or k <= 1 Then Exit Sub
ReDim A(1 To N)
txt = ""
For i = 1 To N
    A(i) = InputBox("a(" & i & ")")
    If A(i) <= k Then
        numb = A(i) + 75
        sum = 0
        For j = 1 To Len(CStr(numb))
            sum = sum + Mid(numb, j, 1)
        Next j
        P = False
        For j = 2 To sum - 1
            If sum Mod i = 0 Then P = True: Exit For
        Next j
        If P = False Then txt = txt & A(i) & Chr(13)
    End If
Next i
If txt = "" Then
MsgBox ("Nothing")
Else
MsgBox txt
End If

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


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

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

15   голосов , оценка 3.733 из 5
Похожие ответы