Найти сумму всех чисел последовательности

@Кирилл91 · Регистрация: 17.10.2012

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

Дана непустая последовательность целых чисел, оканчивающаяся 0.
Найти:
а) сумму всех чисел последовательности
б) кол-во всех чисел последовательности

Предложите вариант решения.

SoftIce · 12.11.2012, 12:37

Сообщение от Кирилл91

оканчивающаяся 0

0 является членом последовательности?
Если да, то:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
 Dim i As Integer, a As Integer, sum As Long
  Do
      a = InputBox("Введите число.")
      sum = sum + a
      i = i + 1
  Loop While a <> 0
 MsgBox "Количество чисел последовательности = " & i & vbCrLf & _
            "Сумма чисел последовательности = " & sum
End Sub

@Кирилл91 · 12.11.2012, 13:08 **[ТС]**

что то не работает(

SoftIce · 12.11.2012, 13:10

На VB6?

Прекрасно работает. Чему там не работать, код простой как валенок

И в VBA будет работать, если Command1_Click запустить как макрос.

@Кирилл91 · 12.11.2012, 13:16 **[ТС]**

ошибка во время выполнения программы 13

SoftIce · 12.11.2012, 13:23

Сообщение от Кирилл91

ошибка во время выполнения программы 13

Это если не ввести никакое число в инпутбокс и нажать ОК, это же очевидно

Вводишь числа в каждый InputBox, после ввода 0 происходит выход из цикла

@Кирилл91 · 12.11.2012, 13:25 **[ТС]**

все про 0 забылд пардон

SoftIce · 12.11.2012, 13:26

Если забыл ввести число - происходит выход из цикла

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
 Dim i As Integer, a As Integer, sum As Long
  Do
    a = Val(InputBox("Введите число."))
      sum = sum + a
      i = i + 1
  Loop Until a = 0
 MsgBox "Количество чисел последовательности = " & i - 1 & vbCrLf & _
         "Сумма чисел последовательности = " & sum
End Sub

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Кирилл91 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 20

	Найти сумму всех чисел последовательности 12.11.2012, 11:47. Показов 2341. Ответов 7 Метки нет (Все метки) Дана непустая последовательность целых чисел, оканчивающаяся 0. Найти: а) сумму всех чисел последовательности б) кол-во всех чисел последовательности Предложите вариант решения. 0

@Кирилл91 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 20
	12.11.2012, 13:08 [ТС]
	что то не работает( 0

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	12.11.2012, 13:10
	На VB6? Прекрасно работает. Чему там не работать, код простой как валенок И в VBA будет работать, если Command1_Click запустить как макрос. 0

@Кирилл91 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 20
	12.11.2012, 13:16 [ТС]
	ошибка во время выполнения программы 13 0

Опции темы