13-08-2016 10:54
Экономика
1
43
Алиса Сотникова

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

Ответы:
АМИНА ДЕМИДОВА
13-08-2016 14:22

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

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Алиса Сотникова

⭐⭐⭐⭐⭐ Лучший ответ на вопрос « с клавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3» от пользователя Алиса Сотникова в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!