В заданном одномерном массиве целого типа найти и напечатать те элементы, сумма цифр которых кратна трём, или сообщить,

@SkyGir · Регистрация: 26.05.2019

Студворк — интернет-сервис помощи студентам

В заданном одномерном массиве целого типа найти и напечатать те элементы, сумма цифр которых кратна трём, или сообщить, что таких нет. Использовать процедуру определения кратности трём суммы цифр числа.
Здравствуйте, извините за наглость, но очень нужно решение этого вопроса. Спасибо за понимание.

@Kate_27 · 31.05.2019, 07:33

тоже отвечала. Из-за несоблюдение правил форума, у Вас вышел кросспостинг. Нехорошо...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub nviuhoinv()
    Dim M() As Integer, B() As Double, n As Integer, i As Integer, s2 As String, s1 As String, Max As Double
    On Error Resume Next
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    If Err.Number <> 0 Then MsgBox "Неверный ввод": Exit Sub
    ReDim M(n)
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(100 * Rnd + 1)
        s1 = s1 & M(i) & "  "
        If SumDig(M(i)) Mod 3 = 0 Then s2 = s2 & M(i) & "  "
    Next i
    If s2 = "" Then s2 = "Нет чисел, удовлетворяющих условию"
    MsgBox s1 & vbCrLf & "Числа массива, с суммой цифр кратной 3:" & vbCrLf & s2
End Sub
 
Function SumDig(ByVal n As Integer) As Integer
    Do While (n > 0)
      SumDig = SumDig + (n Mod 10)
      n = n \ 10
    Loop
End Function

@SkyGir · 31.05.2019, 07:45 **[ТС]**

За этот бедлам искренне прошу прощения. Исправлюсь

@Burk · 31.05.2019, 08:46

Уважаемые форумчане, а вам не надоело делать за этого человека многочисленные однотипные задания, которые, если просто пошевелить мозгами, пора бы делать самому. Или он совершенно неспособен воспринимать ВБА,тогда надо сменить специальность, или лентяй, или на нашем доброжелательном отношении человек делает бизнес, продавая своим однокурсникам наши решения. Или вам хочется показать всем как вы легко с этим справляетесь и потешить свое самолюбие?

@SkyGir · 31.05.2019, 09:13 **[ТС]**

Сообщение от Burk

Уважаемые форумчане, а вам не надоело делать за этого человека многочисленные однотипные задания, которые, если просто пошевелить мозгами, пора бы делать самому. Или он совершенно неспособен воспринимать ВБА,тогда надо сменить специальность, или лентяй, или на нашем доброжелательном отношении человек делает бизнес, продавая своим однокурсникам наши решения.

Здравствуйте, я понимаю, что ооооочень наглею, но ленью тут и не пахнет, и тем более бизнесом(какие одногруппники, если обучение дистанционное?) Первые две лабы сделал сам, 3-ю с помощью Вашего портала, а на 4 времени не хватает
[ATTACH]

В заданном одномерном массиве целого типа найти и напечатать те элементы, сумма цифр которых кратна трём, или сообщить,

[/ATTACH]

@Kate_27 · 31.05.2019, 09:13

Burk, я поясню для чего это мне. Сейчас я в декрете, и мои мозги покрылись плесенью за это время. Вот для того чтобы ее отскрести я и делаю эти задания)
Мне по сути все равно бизнес это или нет. На сложные задачи времени с ребёнком нет, а вот на это находится)

@SkyGir · 31.05.2019, 09:18 **[ТС]**

Спасибо, Kate, вы очень мне помогли, выполнив за меня все эти задания

@Burk · 31.05.2019, 11:28

Kate_27, тогда вот вам задача, задан полигон (не обязательно выпуклый) на листе экселя, ограниченный цепочкой ячеек. ячейки расположены не подряд, а по углам полигона. Заполнить ячейки внутри полигона, например, звёздочками.

Добавлено через 1 час 46 минут
SkyGir, а кстати, я ведь вам написал можно сказать функцию подсчете суммы цифр в числе в ответ на вашу просьбу в личном сообщении ко мне. И вы снова задаете этот же вопрос. Вы просто не смотрели мой ответ или просто в принципе не понимаете?

@SkyGir · 31.05.2019, 11:38 **[ТС]**

Сообщение от Burk

SkyGir, а кстати, я ведь вам написал можно сказать функцию подсчете суммы цифр в числе в ответ на вашу просьбу в личном сообщении ко мне. И вы снова задаете этот же вопрос. Вы просто не смотрели мой ответ или просто в принципе не понимаете?

Вот как раз ваш ответ я и посмотрел и кликнул "ответить", чтобы полностью изложить суть своей проблемы( и как-то упустил из виду то, что Вы мне готовую функцию написали)

@Kate_27 · 02.06.2019, 13:55

Сообщение от Burk

Kate_27, тогда вот вам задача, задан полигон (не обязательно выпуклый) на листе экселя, ограниченный цепочкой ячеек. ячейки расположены не подряд, а по углам полигона. Заполнить ячейки внутри полигона, например, звёздочками.

Добралась я все же сегодня до этой задачки)))
Надеюсь Вы дадите мне свой фидбэк.
Вот так сойдет?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@SkyGir 1 / 1 / 0 Регистрация: 26.05.2019 Сообщений: 70

	В заданном одномерном массиве целого типа найти и напечатать те элементы, сумма цифр которых кратна трём, или сообщить, 31.05.2019, 06:59. Показов 988. Ответов 9 Метки нет (Все метки) В заданном одномерном массиве целого типа найти и напечатать те элементы, сумма цифр которых кратна трём, или сообщить, что таких нет. Использовать процедуру определения кратности трём суммы цифр числа. Здравствуйте, извините за наглость, но очень нужно решение этого вопроса. Спасибо за понимание. 0

@SkyGir 1 / 1 / 0 Регистрация: 26.05.2019 Сообщений: 70
	31.05.2019, 07:45 [ТС]
	За этот бедлам искренне прошу прощения. Исправлюсь 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	31.05.2019, 08:46
	Уважаемые форумчане, а вам не надоело делать за этого человека многочисленные однотипные задания, которые, если просто пошевелить мозгами, пора бы делать самому. Или он совершенно неспособен воспринимать ВБА,тогда надо сменить специальность, или лентяй, или на нашем доброжелательном отношении человек делает бизнес, продавая своим однокурсникам наши решения. Или вам хочется показать всем как вы легко с этим справляетесь и потешить свое самолюбие? 0

@Kate_27 198 / 132 / 67 Регистрация: 27.03.2019 Сообщений: 288
	31.05.2019, 09:13
	Burk, я поясню для чего это мне. Сейчас я в декрете, и мои мозги покрылись плесенью за это время. Вот для того чтобы ее отскрести я и делаю эти задания) Мне по сути все равно бизнес это или нет. На сложные задачи времени с ребёнком нет, а вот на это находится) 1

@SkyGir 1 / 1 / 0 Регистрация: 26.05.2019 Сообщений: 70
	31.05.2019, 09:18 [ТС]
	Спасибо, Kate, вы очень мне помогли, выполнив за меня все эти задания 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	31.05.2019, 11:28
	Kate_27, тогда вот вам задача, задан полигон (не обязательно выпуклый) на листе экселя, ограниченный цепочкой ячеек. ячейки расположены не подряд, а по углам полигона. Заполнить ячейки внутри полигона, например, звёздочками. Добавлено через 1 час 46 минут SkyGir, а кстати, я ведь вам написал можно сказать функцию подсчете суммы цифр в числе в ответ на вашу просьбу в личном сообщении ко мне. И вы снова задаете этот же вопрос. Вы просто не смотрели мой ответ или просто в принципе не понимаете? 0