Определить четное или нечетное число без использования встроенных функций, mod и целочисленного деления

@slashhhhh · Регистрация: 26.08.2018

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

Добрый день! Задали задачку: "Вводится натуральное число. Определить чётное или нечётное данное число."
Вроде всё просто, решил её через Mod. Но преподаватель сказал, что так любой сможет. Потом решил с помощью целочисленного деления и умножения исходного числа на 2. Тоже не прокатило..
Возникла идея перечислять цифры от единицы до исходного числа с помощью счетчика, где в первом цикле будет записываться, что число "Нечетное". При втором цикле, запишется: "Четное". И так до тех пор, пока счетчик не дойдет до исходного числа.

Например:
Исходное число - 5.
Первое применение цикла - число "Нечетное". Второе применение цикла - число "Четное". Третье - "Нечетное". Четвертое - "Четное". Пятое - "Нечетное".
В итоге и получаем, что 5 - "Нечетное".

Главная загвоздка заключается в том, что я не знаю как применять формулы поочередно. Т.е. что бы при первом применении цикла, цикл использовал формулу с ответом "Нечетное". А при втором применение, уже формулу с ответом "Четное". И так до тех пор, пока не дойдет до исходного числа. Возможно, можно как-то назначить для одной переменной два этих ответа, чтобы они менялись с каждым применением цикла. Но как это сделать, я тоже не знаю. Это, собственно говоря, и есть то, с чем я хотел чтобы мне помогли.

Конечно, есть и другие способы решения этой задачи, так что будет очень круто, если вы покажите какой-нибудь другой вариант решения.

Всем заранее спасибо!

@Argus19 · 11.05.2022, 10:26

А так не пойдёт?

Visual Basic
1
2
3
4
5
6
7
8
9
Dim Num As String
 
 
Num = InputBox("Введите число")
 If Right(Num, 1) Like "[13579]" Then
  MsgBox ("Число нечётное")
   Else
  MsgBox ("Число чётное")
 End If]

@Alexis · 11.05.2022, 10:29

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test1()
Dim str
N = 6
v = 1
Do While True
   str = "нечётное"
   If v = N Then
      Exit Do
   End If
   v = v + 1
   str = "чётное"
   If v = N Then
      Exit Do
   End If
   v = v + 1
Loop
 
MsgBox str
End Sub

@Catstail · 11.05.2022, 11:00

Argus19, введите "rt5"

Visual Basic
1
2
3
Function isOdd(n as integer) As Boolean
    isOdd=n and &H1
End function

@slashhhhh · 11.05.2022, 11:18 **[ТС]**

Хороший вариант, но Right это же встроенная функция, которая выделяет число справа)

Добавлено через 4 минуты
Спасибо, за ваш вариант. Получилось , то что нужно.

Добавлено через 3 минуты
Всем спасибо! Вот что у меня в итоге получилось. Может кому-нибудь понадобится:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Command1_Click()
Dim x, v As Integer
Dim str
    'Привязываю переменную к введенному числу'
x = Val(TextBox1.Text)
    Print "Исходное число"; x;
    'Проверяю что TextBox содержит любое число кроме нуля, если  нет, то алгоритм невозможно запустить'
If x = Empty Or x <= 0 Then GoTo finish
v = 1
Do While True
   str = "нечётное"
   If v = x Then
      Exit Do
   End If
   v = v + 1
   str = "чётное"
   If v = x Then
      Exit Do
   End If
   v = v + 1
Loop
 Print str
finish: End Sub

I can · 11.05.2022, 11:57

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

v = v + 1

Двойка за оптимизацию

Добавлено через 9 минут

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
    Dim x As Long, y As Long
    'Привязываю переменную к введенному числу'
    x = Val(TextBox1.Text)
    Print "Исходное число"; x;
    'Проверяю что TextBox содержит любое число кроме нуля, если  нет, то алгоритм невозможно запустить'
    If x = Empty Or x <= 0 Then GoTo finish
    y = x / 2
    Print IIf(y = x / 2, " ", " не") & "чётное."
finish:
End Sub

Добавлено через 15 минут
slashhhhh, самый оптимальный вариант у Catstail.

@slashhhhh · 11.05.2022, 16:49 **[ТС]**

Сообщение от I can

Двойка за оптимизацию

Я не гонюсь за оптимизацией) Познакомился с бейзиком недавно, так что для моего начинающего уровня, более понятно именно то, что у Alexis333. У Catstail , из-за своей неосведомленности в данной теме, я даже не могу понять, что к чему. Однако, все равно, спасибо за помощь!

I can · 11.05.2022, 20:04

Не по теме:

Понятно

Новые блоги и статьи Все статьи Все блоги /
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 - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@slashhhhh 0 / 0 / 0 Регистрация: 26.08.2018 Сообщений: 3

	Определить четное или нечетное число без использования встроенных функций, mod и целочисленного деления 11.05.2022, 09:54. Показов 1467. Ответов 7 Метки нет (Все метки) Добрый день! Задали задачку: "Вводится натуральное число. Определить чётное или нечётное данное число." Вроде всё просто, решил её через Mod. Но преподаватель сказал, что так любой сможет. Потом решил с помощью целочисленного деления и умножения исходного числа на 2. Тоже не прокатило.. Возникла идея перечислять цифры от единицы до исходного числа с помощью счетчика, где в первом цикле будет записываться, что число "Нечетное". При втором цикле, запишется: "Четное". И так до тех пор, пока счетчик не дойдет до исходного числа. Например: Исходное число - 5. Первое применение цикла - число "Нечетное". Второе применение цикла - число "Четное". Третье - "Нечетное". Четвертое - "Четное". Пятое - "Нечетное". В итоге и получаем, что 5 - "Нечетное". Главная загвоздка заключается в том, что я не знаю как применять формулы поочередно. Т.е. что бы при первом применении цикла, цикл использовал формулу с ответом "Нечетное". А при втором применение, уже формулу с ответом "Четное". И так до тех пор, пока не дойдет до исходного числа. Возможно, можно как-то назначить для одной переменной два этих ответа, чтобы они менялись с каждым применением цикла. Но как это сделать, я тоже не знаю. Это, собственно говоря, и есть то, с чем я хотел чтобы мне помогли. Конечно, есть и другие способы решения этой задачи, так что будет очень круто, если вы покажите какой-нибудь другой вариант решения. Всем заранее спасибо! 0

I can
	11.05.2022, 20:04
	Не по теме: Понятно 0

Определить четное или нечетное число без использования встроенных функций, mod и целочисленного деления

Решение