Обнулить цифры на четных позициях в пятизначном числе

@Nasdaq · Регистрация: 23.04.2015

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

Вообщем простенькая задача как ее можно реализовать?
Дано пятизначное число. Цифры на четных позициях занулить. Например, из 12345 получается число 10305

echs · 13.03.2017, 16:23

Visual Basic
1
2
3
4
5
6
7
Dim S As String
N = 12345
S = Ltrim(Str(N))
Mid(S, 2, 1) = "0"
Mid(S, 4, 1) = "0"
N = Val(S)
Print N

SoftIce · 13.03.2017, 16:38

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

S = Ltrim(Str(N))

А CStr чем не нравится?

echs · 13.03.2017, 16:43

SoftIce
СПАСИБО!! Мне все нравится. Просто вылетело из головы.

@Nasdaq · 13.03.2017, 18:44 **[ТС]**

Вы мне дали тупо по примеру а мне нужно что бы я водил любое друго 4значное число

SoftIce · 13.03.2017, 18:59

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

нужно что бы я водил любое друго 4значное число

Так и надо было спрашивать о любом числе. Вы что писали то:

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

Дано пятизначное число.

@Nasdaq · 13.03.2017, 19:03 **[ТС]**

Ошибся ,вообщем я вот что бы я в поле водил любое 5ти значное число а он заменял четные числа на 0

@Kogb · 13.03.2017, 19:56

Реализовать можно так: в цикле пробежаться по числу, проверяя каждую позицию на четность. Или все-же нужно тупо код?

@Nasdaq · 13.03.2017, 20:06 **[ТС]**

Было бы хорошо если бы дали код или исходник

@Alex77755 · 13.03.2017, 20:12

в цикле пробежаться по числу проверяя каждую позицию на четность

зачем бежать и проверять все?
начиная со второго с шагом 2

@Kogb · 13.03.2017, 20:20

Ну, держи:

Visual Basic
1
2
3
4
5
6
Dim i As Byte, S As String
S = "12345"
For i = 2 To Len(S) Step 2
Mid(S, i) = "0"
Next i
MsgBox S

Препода приятно удивит количество "найденных" тобой решений данной задачи.

@Nasdaq · 13.03.2017, 20:40 **[ТС]**

Вы не поняли задание вы мне берете одно определенное число 12345 а мне надо что бы я воодил любое число или оно рандомно выпадало и после этого оно четные числа на ноль заменяло

@Alex77755 · 13.03.2017, 20:47

а мне надо что бы я воодил любое число

посмотри справку и пример по InputBox

SoftIce · 13.03.2017, 20:48

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

Вы не поняли задание

А ты им всем двойки поставь

@Alex77755 · 13.03.2017, 20:50

Вот уж лень-матушка раньше меня родилась!

Visual Basic
1
2
3
4
5
6
Dim Message, Title, Default, MyValue
Message = "Введите число от 1 до 3" ' Сообщение-подсказка.
Title = "Пример"  ' Заголовок.
Default = "1"   ' Значение по умолчанию.
' Выводит на экран сообщение, заголовок и значение по умолчанию.
MyValue = InputBox(Message, Title, Default)

@Kogb · 13.03.2017, 21:32

Alex77755, ему тупо код нужен.
Nasdaq, вот держи, я сегодня добрый )

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim i As Byte, S As String
'я воодю любое число или оно рандомно выпадает и после этого оно четные числа на ноль заменяло
Randomize
S = Space(5)
For i = 1 To 5
Mid(S, i) = CStr(Int((9 * Rnd) + 1)) '... или оно рандомно выпадает
Next i
If Int(2 * Rnd) Then S = InputBox("я воодю любое число")
If StrPtr(S) = 0 Or Len(S) = 0 Then MsgBox "я передумал воодить число": Exit Sub
'и после этого оно четные числа на ноль заменяло
For i = 2 To Len(S) Step 2
Mid(S, i) = "0"
Next i
MsgBox S

@Nasdaq · 13.03.2017, 21:52 **[ТС]**

Cпасибо что помогли

Добавлено через 14 минут
А вот вопрос возник я нашел еще код чуть другой но суть таже но вот одна и таже ошибка вот к примеру я пишу 12345 он заменяет на =10305 но если я пишу подряд 2 четные цифры к примеру 12234 он выдает 10204 вот так получаетсья не заменяте 2ю четную цифру в чем проблема?и в вашем коде тоже так

SoftIce · 13.03.2017, 22:00

Вы же писали

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

Цифры на четных позициях занулить

Речь шла о четных позициях, а не о четных цифрах.

@Alex77755 · 14.03.2017, 09:32

но если я пишу подряд 2 четные цифры к примеру 12234 он выдает 10204 вот так получаетсья не заменяте 2ю четную цифру в чем проблема?

В тебе! Главное сама определила:

Вообщем простенькая задача как ее можно реализовать

Осталось только прочитать условие задания

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

Обнулить цифры на четных позициях в пятизначном числе

Решение

Решение

@Nasdaq 1 / 1 / 0 Регистрация: 23.04.2015 Сообщений: 52

	Обнулить цифры на четных позициях в пятизначном числе 13.03.2017, 15:21. Показов 8818. Ответов 18 Метки нет (Все метки) Вообщем простенькая задача как ее можно реализовать? Дано пятизначное число. Цифры на четных позициях занулить. Например, из 12345 получается число 10305 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	13.03.2017, 16:43
	SoftIce СПАСИБО!! Мне все нравится. Просто вылетело из головы. 0

@Nasdaq 1 / 1 / 0 Регистрация: 23.04.2015 Сообщений: 52
	13.03.2017, 18:44 [ТС]
	Вы мне дали тупо по примеру а мне нужно что бы я водил любое друго 4значное число 1

@Nasdaq 1 / 1 / 0 Регистрация: 23.04.2015 Сообщений: 52
	13.03.2017, 19:03 [ТС]
	Ошибся ,вообщем я вот что бы я в поле водил любое 5ти значное число а он заменял четные числа на 0 0

@Kogb 367 / 128 / 28 Регистрация: 17.07.2011 Сообщений: 253 Записей в блоге: 1
	13.03.2017, 19:56
	Реализовать можно так: в цикле пробежаться по числу, проверяя каждую позицию на четность. Или все-же нужно тупо код? 0

@Nasdaq 1 / 1 / 0 Регистрация: 23.04.2015 Сообщений: 52
	13.03.2017, 20:06 [ТС]
	Было бы хорошо если бы дали код или исходник 0

@Nasdaq 1 / 1 / 0 Регистрация: 23.04.2015 Сообщений: 52
	13.03.2017, 20:40 [ТС]
	Вы не поняли задание вы мне берете одно определенное число 12345 а мне надо что бы я воодил любое число или оно рандомно выпадало и после этого оно четные числа на ноль заменяло 0

@Nasdaq 1 / 1 / 0 Регистрация: 23.04.2015 Сообщений: 52
	13.03.2017, 21:52 [ТС]
	Cпасибо что помогли Добавлено через 14 минут А вот вопрос возник я нашел еще код чуть другой но суть таже но вот одна и таже ошибка вот к примеру я пишу 12345 он заменяет на =10305 но если я пишу подряд 2 четные цифры к примеру 12234 он выдает 10204 вот так получаетсья не заменяте 2ю четную цифру в чем проблема?и в вашем коде тоже так 0