Верно ли, что по четным числам выпало больше осадков, чем по нечетным?

@БелкО · Регистрация: 03.09.2009

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

Данные о количестве осадков, выпавших на каждый день февраля. Верно ли, что по четным числам выпало больше осадков, чем по нечетным? Использовать только один оператор цикла.
Условие:
osadki – случайные числа, осадки на каждый день февраля;
osadki - положительное;
нужно найти: верно, что chet>nechet, или нет

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub zadacha2()
Dim chet, nechet, i, osadki
chet = 0 'задаем начальное значение суммы осадков по четным дням
nechet = 0 'задаем начальное значение суммы осадков по нечетным дням
i = 1 'задаем начальное значение счетчика дней
While i <= 28 'пока не закончился месяц (20 дней)
osadki = Rnd() * 30 'присвоить осадкам случайное число от 0 до 30
If i Mod 2 = 0 Then 'если номер текущего дня четный, то
nechet = nechet + osadki 'добавить эти осадки в сумму к нечетным дням
Else 'иначе
chet = chet + osadki 'добавить эти осадки в сумму к четным дням
End If 'конец условного оператора
i = i + 1 'увеличить счетчик дней на 1
Wend 'конец цикла
MsgBox ("chet = " & chet & " nechet = " & nechet) 'вывод суммы осадков по четным и по нечетным дням
MsgBox (chet > nechet) 'вывод результата логического сравнения, что сумма по четным дням была больше суммы по нечетным дням
End Sub

Используя while и if - все работает, но по условию нужно использовать только один оператор цикла...
Помогите модифицировать решение, чтобы оно соответствовало условию.

@pincet · 23.06.2011, 13:48

perebor - переменная цикла, т.к. влияет на исполнение цикла. day на исполнение не влияет (в твоем случае). Цель для цикла while - исполнять, пока условие (probeg<=20) является истинным. Ты используешь цикл с постусловием, т.о. в цикле будет не меньше одной итерации. Как-то так, если на пальцах

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@pincet 1655 / 1154 / 173 Регистрация: 23.07.2010 Сообщений: 6,914
	23.06.2011, 13:48
	perebor - переменная цикла, т.к. влияет на исполнение цикла. day на исполнение не влияет (в твоем случае). Цель для цикла while - исполнять, пока условие (probeg<=20) является истинным. Ты используешь цикл с постусловием, т.о. в цикле будет не меньше одной итерации. Как-то так, если на пальцах 1