Обработка числовой последовательности - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д