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

Question

Информатика

Настюня

20 ноября, 13:02

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

+4

Ответы (1)

Знаете ответ на вопрос?

Катюля · 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)