Question

 с клавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3

Answer 1

Dim Massiv(9) as integer
Dim x as integer
Dim msg as string
For x=0 to 9
Massiv(x)=InputBox("Введите число №" & x+1)
If Massiv(x) mod 3 =0 then msg=msg & "Число " & Massiv(x) & " кратно 3." & vbCrLf
Next
MsgBox (msg)

Answer 2

Для нахождения суммы чисел, кратных 3, из 10 введенных чисел, вы можете использовать программу на языке программирования, такую как Python. Вот пример кода, который выполняет эту задачу:

# Создаем список для хранения введенных чисел
numbers = []

# Вводим 10 чисел с клавиатуры
for i in range(10):
    num = int(input(f"Введите {i + 1}-е число: "))
    numbers.append(num)

# Инициализируем переменную для хранения суммы чисел, кратных 3
sum_of_multiples_of_3 = 0

# Проходим по всем числам в списке и проверяем, кратны ли они 3
for num in numbers:
    if num % 3 == 0:
        sum_of_multiples_of_3 += num

# Выводим сумму чисел, кратных 3
print(f"Сумма чисел, кратных 3, равна {sum_of_multiples_of_3}")

Этот код сначала запрашивает ввод 10 чисел с клавиатуры и сохраняет их в списке `numbers`. Затем он проходит по этому списку, проверяя каждое число на кратность 3, и если число кратно 3, добавляет его к сумме `sum_of_multiples_of_3`. В конце программа выводит сумму чисел, кратных 3.