Для N введенных с клавиатуры чисел найти сумму положительных

@katia04 · Регистрация: 17.12.2013

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

Для N введенных с клавиатуры чисел найти сумму положительных, кратных 3.
Как это делать?

@Серж_87 · 18.12.2013, 22:19

katia04, вводи через inputbox числа и далее каждое сравнивай с нулем. Если > 0 и при делении на 3 получается целое число (integer) то суммируй к переменной

@katia04 · 18.12.2013, 22:21 **[ТС]**

Хотелось в решенном виде, пожалуйста)

@Серж_87 · 18.12.2013, 22:36

katia04, ну что у вас не получается? Через inputbox можете ввести число в переменную?

VB.NET
1
2
3
4
5
6
7
8
        DIM m as integer = 0
        Do
            Dim INPUT As Integer = InputBox("введите число!")
if INPUT > 0 then
                m = m + 1
                TextBox1.Text = m
            End If
        Loop

Нужно условие на кратность 3 еще придумать, не писал его

Добавлено через 7 минут
вернее m = m + 1 строку так надо

VB.NET
1
m = m + INPUT

@insite2012 · 19.12.2013, 00:29

katia04, Вот так сделайте.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim X As Integer = InputBox("Введите количество элементов")
        Dim Sum As Single = 0
        Dim N As Single = 0
        For i As Integer = 1 To X
            N = InputBox("Введите " & i & "-й элемент")
            If CSng(N) > 0 Then
                If CSng(N) Mod 3 = 0 Then
                    Sum += CSng(N)
                End If
            End If
        Next
        MsgBox("Сумма элементов кратных 3: " & Sum)
    End Sub
End Class

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@katia04 0 / 0 / 0 Регистрация: 17.12.2013 Сообщений: 13

	Для N введенных с клавиатуры чисел найти сумму положительных 18.12.2013, 22:03. Показов 2644. Ответов 4 Метки нет (Все метки) Для N введенных с клавиатуры чисел найти сумму положительных, кратных 3. Как это делать? 0

@Серж_87 1303 / 509 / 63 Регистрация: 09.08.2012 Сообщений: 2,056
	18.12.2013, 22:19
	katia04, вводи через inputbox числа и далее каждое сравнивай с нулем. Если > 0 и при делении на 3 получается целое число (integer) то суммируй к переменной 0

@katia04 0 / 0 / 0 Регистрация: 17.12.2013 Сообщений: 13
	18.12.2013, 22:21 [ТС]
	Хотелось в решенном виде, пожалуйста) 0