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

@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ю четную цифру в чем проблема?

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

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

Решение

Решение

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

	Обнулить цифры на четных позициях в пятизначном числе 13.03.2017, 15:21. Показов 8814. Ответов 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