Определить сколько натуральных подряд идущих четных чисел нужно сложить

@Denis6191010 · Регистрация: 18.03.2018

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

Определить сколько натуральных подряд идущих четных чисел нужно сложить (найти минимальное число таких слагаемых), чтобы их сумма была больше введенного числа.

@Gluk · 14.11.2021, 00:02

Visual Basic

'Определить сколько натуральных подряд идущих четных чисел
'нужно сложить(найти минимальное число таких слагаемых),
'чтобы их сумма была больше введенного числа
Sub summ_chet()
 Dim Sum As Integer, i As Integer, n As Long
 
 n = InputBox("Введите число ")
 i = 1
 Sum = 0
 
While Sum + i + 1 <= n
     i = i + 1
     If i Mod 2 = 0 Then Sum = Sum + i
Wend
MsgBox ("Нужно сложить " & i & " чисел, сумма четных =" & Sum)
End Sub

@Catstail · 14.11.2021, 19:43

Gluk, нерационально и просто неверно. Твой код при вводе 13 дает ответ 6. Т.е., чтобы сумма превысила 13, нужно сложить 6 последовательных четных? 2+4+6+8+10+12

Правильный ответ = 4

Visual Basic

Sub task()
 
    n& = CLng(InputBox("Введите число"))
    
    s& = 0
    i& = 0
    k& = 2
    
    Do While (s& < n&)
       s& = s& + k&
       k& = k& + 2
       i& = i& + 1
    Loop
 
    MsgBox CStr(i&)
 
End Sub

I can · 14.11.2021, 20:18

А чё это Вы три с лишним года ждали? Тестировали программу что ли?

@Catstail · 16.11.2021, 10:24

I can, это мне?

I can · 16.11.2021, 10:32

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

это мне

Нет, Борис, не Вам. Gluk поднял старую тему.

@Narimanych · 22.11.2021, 09:48

С моей точки зрения , задача

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

Определить сколько натуральных подряд идущих четных чисел нужно сложить

поставлена некорректно...

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@Denis6191010 -1 / 0 / 0 Регистрация: 18.03.2018 Сообщений: 3
		1
	Определить сколько натуральных подряд идущих четных чисел нужно сложить 18.03.2018, 00:48. Показов 2107. Ответов 6 Метки нет (Все метки) Определить сколько натуральных подряд идущих четных чисел нужно сложить (найти минимальное число таких слагаемых), чтобы их сумма была больше введенного числа. 0

I can help 4580 / 4162 / 815 Регистрация: 13.04.2015 Сообщений: 9,133
	14.11.2021, 20:18	4
	А чё это Вы три с лишним года ждали? Тестировали программу что ли? 0

@Catstail Модератор 37432 / 20804 / 4280 Регистрация: 12.02.2012 Сообщений: 34,218 Записей в блоге: 14
	16.11.2021, 10:24	5
	I can, это мне? 0

I can help 4580 / 4162 / 815 Регистрация: 13.04.2015 Сообщений: 9,133
	16.11.2021, 10:32	6
	Сообщение от Catstail это мне Нет, Борис, не Вам. Gluk поднял старую тему. 0

@Narimanych 2747 / 1721 / 779 Регистрация: 23.03.2015 Сообщений: 5,440
	22.11.2021, 09:48	7
	С моей точки зрения , задача Сообщение от Denis6191010 Определить сколько натуральных подряд идущих четных чисел нужно сложить поставлена некорректно... 0