Используя только ограниченное количество операции +, -, *, / и условий?

МоёЧисло%2=0 - четное...

%2

(1)(2) Операция % запрещена, читать умеем? Чисто математическая задача

(0) помнится был такой топик.. :))) поисчи..

(3) В 1С операция % запрещена? Да ты окончательно спятил...

держи v8: Как узнать - Четное число или нет?
там стока вариантов..))

(3) Формула четного и нечетного числа
2п и 2п+1 соответственно. Думай ...

(5) он же извращенец..))

http://ru.wikipedia.org/wiki/Чётные_и_нечётные_числа

Оттуда ...
   * Сложение и вычитание:
         o чётное ± чётное = чётное
         o чётное ± нечётное = нечётное
         o нечётное ± чётное = нечётное
         o нечётное ± нечётное = чётное
   * Умножение:
         o чётное ? чётное = чётное
         o чётное ? нечётное = чётное
         o нечётное ? чётное = чётное
         o нечётное ? нечётное = нечётное
   * Деление:
         o чётное / чётное — может быть любым
         o чётное / нечётное = чётное, если целое
         o нечётное / чётное — не может быть целым
         o нечётное / нечётное = нечётное, если целое

(6) спасибо, именно чтение этого топика меня и натолкнуло на данную алгоритмическую проблему.
(5) Меня интересует не практическая, а теоретическая сторона. Сегодня ехал в электричке - голову сломал. Можно ли используя только сложение, умножение, деление и вычитание и ограниченное число действий, не пропорциональное проверяемому числу, проверить, четное оно или нет? Вот о чем топик.

Функция Чет (х)
 Результат = х;
 Если (х\2) >= 2 Тогда
   Результат = Функция Чет (Результат/2);
 КонецЕсли;
 возврат Результат
КонецФункции;

Если Чет(МоеЧисло)=1 Тогда
 Сообщить("Четное");
Иначе
 Сообщить("НЕ Четное");
КонецЕсли;


формально циклов нету )))

(0) Нельзя.
Если закрыть глаза на точность вычислений 1C, то  при помощи разрешенных операций даже целое от не целого неотличишь - их конечное количество и можно построить функцию только с конечным количеством корней.

(7) пять баллов! :))
нет, честно, я бы более изящно накуй не послал :)

(12) рекурсия и цикл - это по сути одно и тоже, тока написано по другому

Что, никто не решил, думали нельзя, а вот и можно...

а = 23;
б = 1/2;
с = а/2;
д = "" + с + "" + б;
е = а / 2 * 10 + б;
ф = "" + е;

Если а = 0 или (д =  ф) тогда
   Сообщить (" Четное");
Иначе
   Сообщить (" Нечетное");
КонецЕсли;

Без циклов, без Цел, только * / +
1С это не теоретическая математика у нее свои правила  :-)

(16) Поясни

(16) бред, преобразуй число a/2 в строку и сравни правые 2 символа с ".5" результат тот же

(18) Ни че не бред - в таком случае я могу сразу сравнить правый символ с "2"

Попробуй сравнить и с ".5" без функций.

Оно может и можно упростить, но это уже детали

(17) Что именно не понятно?

Цифирь = ТвоеЦифирь;
Исчем = Число(Прав(Цифирь,1));
Если (Исчем = 0) или (Исчем = 2) или (Исчем = 4) или (Исчем = 6) или (Исчем = 8) Тогда
ЧЕТНОЕ
КонецЕсли;

ну и проверку на 0 сделай

что то типа этого вроде
это если ты не рассматриваешь дробные числа как четные и нечетные...
ну то есть не дробные
а рассматриваешь только целые

(19) ты операцию конкатенации со сложением спутал

>>Skom по-твоему преобразование строки в число и обратно по какому алгоритму работает? без циклов?

(21) На счет других функций автор ничего не сказал, так что думаю вариантов еще можно попридумывать :-)

(24) В условии не запрещено использовать конкатенацию

(27) маладец

(25) А если разобраться то и операция деления (/) не обходится без циклов

(29) еще раз маладец

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

СкокаПроходофф = 1;

Цифирь = 3;

~М1: Цифирь = Цифирь - 1;

Если Цифирь = 0 Тогда
   Если СкокаПроходофф = 1 Тогда
        Сообщить("нечет");
   Иначе
        Сообщить("чет");
   КонецЕсли
Иначе
   СкокаПроходафф = 3 - СкокаПроходафф;
   Перейти ~М1
КонецЕсли;

что то воде етого...и без циколв и без всего...
тока вычитание....

вообще в условии написано, что в 1С использовать  +, -, *, / и условий ... как 1С будет их использовать в условии задачи не ограничивалось...
так что думаю kosts условия задачи выполнил...

(31)а вот это уже цикл

(31 ) Не знаю зачтут ли т.к. похоже на цикл Перейти ~М1 :-)

может де то и напортачил в логике но суть думая вроде ясна....
а цклов то НЕТУ

Используя только ограниченное количество операции +, -, *, / и условий?

все соблюдено!

фактически то все понимают что цикл...но тем не менее...это не цикл а просто передача управления на оператор при несоблюдении или соблюдении какого либо условия....

хотя цикл это оно и есть

(35)для тебя цикл это когда для х = 1 по 10 цикл?

(32) он использует функции преобразования числа в строку и тем условие задачи не выполняет

Если уж использовать другие функции, тогда вообще "по колхозному"
Функция ПроверкаЧетности()
   Если КонтрЧисло=0 Тогда Возврат "";
   ИначеЕсли Найти(СокрЛП(КонтрЧисло/2),".")>0 Тогда Возврат "Не четное";
   Иначе Возврат "Четное";
   КонецЕсли;    
КонецФункции

(39) Ноль считается четным числом

(37) да понимаю я что это цикл....
просто так....извратился что то

(38)таково особенность одинэс... в условиях задачи использования "+" никак не ограниченно

Я смотю не только фикс извращенец на мисте...

(42) я не про + говорю, а про преобразование числа в строку

(43) - это точно.
Картина напоминает рыбака кидающего в реку подкормку.
Какую хрень ни кинь - все равно сбежится куча какой-то живности
и будет ее теребить.
Чувствуется что "гений" и народ в теме давно не был(и) в отпуске - пора!

Нельзя

(44)покажи где там идет явное преобразование в строку? ... то есть используется функция "строка" ... а не возможность "+" в одинэс

я думал в той мегатеме суть сабжа раскрыта... (21) и аналоги укладываются в ограничения

(47) кто говорит о явных преобразованиях?
по твоей логике в (31) нет цикла, ведь слово "цикл" нигде не встречается

(49)что для тебя цикл?

еще раз ... в сабже разрешено использовать "+" ... есть какие-либо ограничения на его использования...


а вот ограничения на использования цикла есть

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

(52)в 1С ... используя только +,-,/ и * ... перевести в двоичную

Цыфро = Чиселко - Цел(Чиселко/10)*10;
ЭтоЧетноеЧисло = (Цыфро = 0) ИЛИ (Цыфро = 2) ИЛИ (Цыфро = 4) ИЛИ (Цыфро = 6) ИЛИ (Цыфро = 8);

(51) сразу бы сказал, что ты конфигураст, я бы с тобой и не спорил

тупая ветка...

(55)то есть специалист больше сказать нечего не можешь и начинаешь личными оскорблениями доказывать свою тупость?

(57) я тебе уже сказал, что вызывается функция преобразования типов, что противоречит условию
ты этого не понял - твои проблемы

(58)где??????

вот здесь: д = "" + с + "" + б;

и как это противоречит условиям задачи?

"Используя только ограниченное количество операции +, -, *, / и условий"

это стандартная фича 1С ... так как имеет все данные фактически только одним типом... вариант...

(61) тем что используется функция, которая не входит в перечисленное число операций

(62) маладец

(64)сама такая... учите мат.часть

(65) теперь выполни (16) при а = 1000

оказывается это нечетное число!


функция стрЧетное(чисЗначение)
   а = чисЗначение;
   б = 1/2;
   с = а/2;
   д = "" + с + "" + б;
   е = а / 2 * 10 + б;
   ф = "" + е;
   Если (а = 0) или (д =  ф) тогда
       Ответ = " Четное";
   Иначе
       Ответ = " Нечетное";
   КонецЕсли;
   возврат ответ;
конецфункции;

сообщить(стрЧетное(10));
сообщить(стрЧетное(100));
сообщить(стрЧетное(1000));
сообщить(стрЧетное(10000));
сообщить(стрЧетное(100000));
сообщить(стрЧетное(1000000));
сообщить(стрЧетное(10000000));



получаем:

Четное
Четное
Четное
Четное
Четное
Четное
Четное


ну в этом случае для тебя слово конфигураст не оскорбление, а профессия

(67) Особенность 1С 8 при преобразовании чисел в строку 1000 -> 1 000

(70) знаю

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

а вто некоторые конфигурасты вызова этой функции в упор не видят

(73)специалист... читать за явное и неявное преобразование типов... и что такое цикл...

(74) ну на этом и сойдемся

собствено по условим (0) - невозможно, по сколько любые арифм действия (из САБЖ) можно свести к 2 простым, а ими ну ни как не получишь результат, вот если можно было-бы использовать переодические функции (синусы и т.д.) то легко

(76)к одному простому... ведь даже вычитание это сложение с минусом

(77) да да, мы уже осознали всю мощь твоего интеллекта

(12) Рекурсия - тот же цикл. Не годится. Число итераций зависит от числа.
(16) Строковые преобразования использовать нельзя, чистую арифметику, плиз... Понятно, что строковыми функциями можно все забубенить. Вот интересно, можно ли это сделать арифметикой?

Мда, похоже действительно Нельзя, но можно ли доказать математически, что нельзя?

(78) Собака лает , а караван идет

(79) Возведение в степень числа (-1).

(78)трудно оснозновать то... чего сам не имеешь

(79) можно сделать даже без арифметических операций:

Если а = 0 Тогда Четное = Истина КонецЕсли;
Если а = 1 Тогда Четное = Ложь КонецЕсли;
Если а = 2 Тогда Четное = Истина КонецЕсли;
Если а = 3 Тогда Четное = Ложь КонецЕсли;
...
Если а = МаксимальноеЧислоВКомпьютере Тогда Четное = ... КонецЕсли;

Количество чисел ограничено разрядностью компьютера, значит и количество операций тоже ограничено.

Если Pow(-1, ИспытуемоеЧисло) >= 0 Тогда
Сообщить("Четное");
Иначе
Сообщить("Нечетное");
КонецЕсли;

ветка отняла половину рабочего дня...
аффтар...спасиба.....!!!!

2(84) Там же в теме перечислены операции, которые можно использовать...

(0) вообще без арифметики

бла_бла_бла
Сообщить(ЧислоТвое);
Если Вопрос("Четное ли число"....) = "Да" Тогда
  Предупреждение("Число четное");
КонецЕсли;

(86) Если тебе охота поржать, то ты поржал, получи пряник. Меня интересует не идиотское ржание, а просто любопытно, можно ли математическими средствами получить информацию о четности числа без округления или нет. В контексте такой постановки вопроса конкатенация и строковая конвертация не уместны!

(86) Возведение в степент это и есть сложение. Комп по своей сути умеет только складывать и более не чего.
Вычетание это сложение с отрицательным числом (частный случий сложения).
Умножение это сложение в цикле со сдвигом по количеству разрядов (ну бывают разновидности, когда на несколько разрядов двигают сразу).
Деление это часный случий умножения.
Вывод все операции делаются сложением.
Даже если вы команду деления DIV на микрокоманды разберете, то получите тоже сложение. :-))

(88) Ну если бы можно было число сдвигать вправо и влево, то за несколько команд делается.
Сдвинул вправо влево и сравнил результат. Хотя на асеммблере достаточно проверить последний разряд.
Тоже самое можно сделать используя XOR побитовый.

(89) Вот и давай, перепиши-ка свой код так, чтобы использовать только операцию умножения и не использовать цикла и сивмольных выражений...

Это я все к чему... Четность и не четность не проверяется сложением округлением и т.д. :-)

Этот вопрос из ряда - можно ли написать программу не используя команды MOV. Ответ да можно, но зачем?

(93) Это задача на смекалку. Можно использовать на тестах.
Т.е. нужно доказать - можно ли проверить четность числа с помощью ограниченного инструментария.

(94) Какова цель такого рода проверки, если ценности результат не имеет?

(95) Ценность в напряжении мозгов, а заодно в проверки знаний математики

Так вы решили или нет?
Какой смысл в тесте, если его вся миста неделю решать будет?

(97)используя только простые операции решить оное незя... сдается мне гений делает тест, абы его никто и никогда не прошел...

Если последняя цифра числа окончивается на 0,2,4,6,8 - число четное... Количество условий сводится к пяти.

контрольный

+99 Блин...  К конфу дня всякую чушь говорю...
Следует читать так "Если последняя цифра числа является..."

(99)как ты будешь последнию цифру получать имея только "+", "-", "*" и "/"?

Подключаешь DLL, которой передаешь число и оно возвращает тебе четное или нечетное :-))
Так даже не используя +,-,*,/ :-))

Еще один способ:
Сдвинуть число вправо. Если переноса не возникло - число четное. :)

(103)использования функци и процедур кроме четырех операций не допустимо... как подключить ВК и передать ей число?

(105) А давайте и их (+, -, *, /) тоже не допускать?

а какая в 1С точность числа? может прокатит че нить вроде

Функция Цел(пЧисло)

Возврат ((пЧисло/1000000000000000) * 1000000000000000);

КонецФункции

округление можно использовать не явным образом. 1С же тоже имеет ограничение разрядности после запятой... Или то число, которое считаем будет реквизитом формы в котором задано что оно целое :-))

(107)хм... это что за функции вы написали?

((256.33/1000000000000000) * 1000000000000000) = 256.33

(109) Ноликов добавь

(109) Это вызов функции ОКР() не явным образом.

(111)и сколько ноликов добавить надо?

Методом тыка. Пока не округляет - значит еще мало.

((256.33/100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) * 100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) = 256.33
((256.33/1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) * 1000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000) = 0


невзлетает

((256.33/Pow(10,5000)) * Pow(10,5000)) = 256.33 - че за умный компилятор???

(114) попробуй двумя командами.

пЧисло = 256.33;
   
   Множитель = Pow(10, 1000);
   
   пЧисло = пЧисло / Множитель;
   
   пЧисло = пЧисло * Множитель;
   
   Возврат пЧисло;


тоже не взлетело

математические функции что ли разрешили использовать?

Достаточно серая логика: (ибо каксигда гоню)))

Числим=ЧислоЧ*ЧислоЧ; //двузначие убираем
Делим=Числим/2;
Если (СтрДлина(Сокрлп(Делим))> СтрДлина(Сокрлп(ЧислоЧ))) и (Прав(Сокрлп(Делим),1)<>"0") Тогда
Сообщить("Нечетное!");
Иначе
Сообщить("Четное");
КонецЕсли;

чипятался

правильно:

Числим=ЧислоЧ*ЧислоЧ;
Делим=Числим/2;
Если (СтрДлина(Сокрлп(Делим))> СтрДлина(Сокрлп(Числим))) и (Прав(Сокрлп(Делим),1)<>"0") Тогда
Сообщить("Нечетное!");
Иначе
Сообщить("Четное");
КонецЕсли;

Четность n числа определяют по делению на 2 нацело =>  наличие/отсутствие дробной части числа n/2.
Тоесть, с заданными условиями, задача сводится к простому: "Как узнать дробную часть числа, не пытаясь узнать дробную часть числа"

(114) Чего анекдот про то как станет "А на ... мне это нужно" и это только половина не вспомнился....?
Мало еще мало... :-))

(118)(119) Нельзя использовать функции 1С, строковые и степень, валите лесом.

бугага..неужто до 200 дотянете...надо еще парочку тупых задачь подкинуть,типа
"найдите сумму или разность чисел без операций +,- и не используя логарифмы и тригонометрию", "найдите степень числа используя тока переменные строкового типа"..и  тд :)

(124) Докажи, что нельзя и успокойся. Пока не можешь доказать - в сад

В детский!

Ну в принципе есть такой алгоритм. Правда он не по теоретической части а по практический. Ориентирован на компьютерные числа. Предполагается что числа имеют максимальную (конечную) разрядность.
Суть проста. Последовательно вычитать степени двоек пока не исчерпается. Если в остатке останется единица то число нечетное.
Если исходить из восмиразрядного числа то получается такая схема:

Если Число > 1 Тогда Число = Число - 2 КонецЕсли;
Если Число > 1 Тогда Число = Число - 4 КонецЕсли;
Если Число > 1 Тогда Число = Число - 8 КонецЕсли;
Если Число > 1 Тогда Число = Число - 16 КонецЕсли;
Если Число > 1 Тогда Число = Число - 32 КонецЕсли;
Если Число > 1 Тогда Число = Число - 64 КонецЕсли;
Если Число > 1 Тогда Число = Число - 128 КонецЕсли;
Если Число = 1 Тогда Ответ = "Нечетное" Иначе Ответ = "Четное" КонецЕсли;

При этом не зависит от величины числа (кроме разрядности максимального представимого числа, но это "зашито" прочно в алгоритм).

Для 32-разрядного числа всего то будет 32 проверки. :)

Алгоритм можно еще оптимизировать сзедал вложенные условия :).

сзедал = сделав

(127)без циклов

(127) Ну этот алгоритм слишком большой для 1С, у нее разрядноть офигенно большая.

(0) Я же дал подсказку ...
Четное*Нечетное - Четное ...
Нечетное*Нечетное - Нечетное ...
Как пример:
1*5 = 5
2*5 = 10
3*5 = 15
4*5 = 20 ...

(129) У меня нет циклов.

(130) Да, кстати сам недавно узнал что разрядность у 1сных чисел составляет где-то 1024 бита.

Пусть даны целое число a и натуральное число b. Разделить число a на b с остатком — значит найти такие целые числа q и r, что 0 ? r < b и a = bq + r. Такая пара чисел всегда существует и единственна. Число q называют частным, а r — остатком от деления a на b. Остаток от деления числа a на b равен нулю тогда и только тогда, когда a делится на b.

Что интересно, одни из самых больших веток на мисте - это ветки гения, причем эскалация идиотизма в них не имеет никаких границ. Зачем вы все сюда пишите ? (0) Хоть бы ОФФ поставил.

(134) эскалация бездельничества ... Люди находят себе проблемы ... А задачка - 6,7 класс ...

(132)блин не много не так понял... а тот алгоритм что ты привел в (127) изначально не правильный...

(135)ну давай взрослый реши ее...

(136) Что неправильного в нем?

(138)как чего? ... ты его хотя бы проверил


Четное - 0
Нечетное - 1
Четное - 2
Нечетное - 3
Четное - 4
Четное - 5
Четное - 6
Нечетное - 7
Четное - 8
Четное - 9
Четное - 10
Четное - 11
Четное - 12

Да, я не проверял. Вот исправленный алгоритм :

Если Число > 128 Тогда Число = Число - 128 КонецЕсли;
Если Число > 64 Тогда Число = Число - 64 КонецЕсли;
Если Число > 32 Тогда Число = Число - 32 КонецЕсли;
Если Число > 16 Тогда Число = Число - 16 КонецЕсли;
Если Число > 8 Тогда Число = Число - 8 КонецЕсли;
Если Число > 4 Тогда Число = Число - 4 КонецЕсли;
Если Число > 2 Тогда Число = Число - 2 КонецЕсли;
Если Число = 1 Тогда Ответ = "Нечетное" Иначе Ответ = "Четное" КонецЕсли;

И его исполнение для числа 197:
197,
69,
5,
1,
"Нечетное"

Вот оптимизированный алгоритм :)

Функция МучайЧисло(Число)
Число = ?(Число>128, Число = Число - 128, ?(Число>64, Число = Число - 64, ?(Число>32, Число = Число - 32, (Число>16, Число = Число - 16, (Число>8, Число = Число - 8, (Число>4, Число = Число - 4, (Число>2, Число = Число - 2, Число)))))));
Если Число > 2 Тогда
      МучайЧисло(Число);
Иначе

   Возврат(число);
 КонецЕсли;
КонецФункции;

Применение в основной программе :

Если МучайЧисло(число) = 1 Тогда Ответ = "Нечетное" Иначе Ответ = "Четное" КонецЕсли;

Думаю Гений1С будет доволен. :))))))

Правда там есть скрытые циклы в виде рекурсии :)

(142) потому и не годитцо

(143) Ну никто не мешает развернуть рекурсию/цикл в явном виде. :)
Как в (140)

(131) И в чем глувокий смысл сей подсказки?

не упреешь для числа = 99999999999999999999999999999999999999999999999999999999999999 разворачивать

(137) Подозреваю, что он не сможет.

ЗЫ Уважаемые решатели! Как Вы думаете - чем отличается задача из (0) с учетом условий от задачи, описанной в (133)? И откуда берется стойкость алгоритмов шифрования с открытым ключом?

(79) А в (13) практически и есть доказательство.

Пусть мы ухитрильсь описать такую функцию, возвращающую 0 или 1, в зависимости от того, четная она или нет:

Функция ПроверкаЧетности(ПроверяемоеЧисло)
   <Конечное количество итераций +,*,-,/, ПроверкаУсловий>
КонецФункции

Для начала заметим, что любую проверку условий можно свести к проверке типа

Если ВычислимоеВыражение=0 Тогда ... Иначе ... КонецЕсли;
или
Если ВычислимоеВыражение>0 Тогда ... Иначе ... КонецЕсли;

Таким образом, функция ПроверкаЧетности(ПроверяемоеЧисло) определена не только на целых числах, но и на вещественных. Причем непрерывность теряется у этой фукнкции в конечном количестве точек, а в области определения - это кривая конечного порядка.

Тогда получается, что уравнение ПроверкаЧетности(X)=0 имеет бесконечное количество решений (все нечетные X), но для кривой конечного порядка это означает тождественное равенство 0.

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

(149) тогда запрещай операции "-" и "/", иначе задача все равно сводится к вещественному полю чисел

Нельзя, точно также нельзя с помощью этих операций узнать, что число целое

определение четности числа
если целое число делится на два, оно называется чётным


деление - деление заменяет неоднократно повторенное вычитание


то есть чтобы узнать делится число на 2 или нет нам надо из него неоднакратно вычетать 2 пока результатом будет 1 или 0 ...

давайте учредим приз, тому кто решит данную математическую проблему 21 века
каждый кто здесь хоть что то вякнул скинется по 1wmz тому кто представит работающуюу программу на 1С либо доказательство невозможности понятное всем остальным.

на гения выплату приза повесить

Берем последнюю цифру числа. Если 1,3,5,7,9 - нечетное, иначе четное :)

(155)скажи как взять?

(155) 37ым будете

напоминаю призовой фонд 37wmz

(156), (157) Да, невнимательно всю ветку читал :)
Так-то бы через преобразование в строку...

Во, без рекурсии, но со своими функциями:
//Фигня - реквизит формы: число длина 10, точность 0
Функция ВСтепени(степень)
   а=1;
   для б=1 По степень Цикл
       а=а*10;
   КонецЦикла;
   возврат а;
КонецФункции
Процедура УбратьРазряд(Бяка)
   перем разряд,значение;
   разряд=10;
    Пока Бяка-ВСтепени(разряд)<0 Цикл
          разряд=разряд-1;
   КонецЦикла;
   значение=9;
   Пока Бяка-значение*встепени(разряд)<0 Цикл
       значение=значение-1;
   КонецЦикла;
   Бяка=Бяка-значение*встепени(разряд);
КонецПроцедуры
Процедура Сформировать()
   
   Пока Фигня>10 Цикл
       УбратьРазряд(Фигня);
   КонецЦикла;
   Если (Фигня=1)или(Фигня=3)или(Фигня=5)или(Фигня=7)или(Фигня=9) Тогда
       Сообщить("Нечетное");
   Иначе
       Сообщить("Четное");
   КонецЕсли;
КонецПроцедуры

(159) преобразование в строку низзя. Я готов закинуть на мобильный 10 рублей тому, кто решит

(161) Маловато будет.
Даешь премию 2^64 копеек!

(160) Цикл есть, зависит от длины числа!

(152) не тупи, надоел, почитай условие внимательно.
(151) докажи, что нельзя

(164)сам не тупи... еще раз без циклов достоверно узнать целое число или нет нельзя... читай внематочно опеределения четности и деления

Преобразовать в строку, взять крайний символ справа и проверить условием
Если ("0" и число>0) или "2" или "4" или "6" или "8" тогда четное
Иначе Не четное
:)))
или это не по математически?%))))

О! в (155) уже такой вариант был....

(163) Цикл идет под МАКСИМАЛЬНО ВОЗМОЖНУЮ длину числа. Поставил на форме "10" - вот и в цикле 10 :)

(162)А ты че нокию 3210 хотел?

(165) Прочитал внимательно, доказательства не понял, я же разрешаю юзать умножение и деление для проверки, этого что, не достаточно.
(168) Я понял ход твоей мысли, но мне такое решение не нравится. Потому что для любого натурального числа такое решение не канает, т.к. подразумевает ограниченность разрядности. Хочется чего-нибудь элегантного и не итерационного.

да ибо проверка четное не четное грубо говоря осуществляется так


чисЗначение = 23434545645;
пока чисЗначение > 1 цикл
 чисЗначение = чисЗначение - 2;
конеццикла;
если чисЗначение = 0 тогда
 сообщить("четное");
иначе
 сообщить("нечетное");
конецесли;

(0) аффтар ты ГАД....
я полночи не спал думая на эту тему....
забил потом....

ыыы

чувствую что "истина где то рядом" но не до этого пока

(0) Прикалываешься или идиот?
Зачем цикл/рекурсия?
128 или 10000128 - что-то меняется в подходе?

(170) 1C не работает с числами неограниченной разрядности. Поэтому скорее прав (168).

Я вижу только сравнение разрядности. Т.е. делим на два. Если знаков после запятой добавилось - нечетное иначе четное. А как еще?

(170) Ну вот без ограничения разряда

Процедура УбратьРазряд(Бяка)
   перем разряд,значение;
   разряд=1;
   Пока Бяка-ВСтепени(разряд)>=0 Цикл
          разряд=разряд+1;
   КонецЦикла;
   разряд=разряд-1;
   значение=9;
   Пока Бяка-значение*встепени(разряд)<0 Цикл
       значение=значение-1;
   КонецЦикла;
   Бяка=Бяка-значение*встепени(разряд);
КонецПроцедуры

(176)это было понятно еще в самом начале... вот только как просечь что после запятой добавлись знаки используя только арифметику("+-/*") и если

Еще один дурацкий способ. Сделал на форме реквизит диалога ВыбЧисло, куда вводим число, которое хотим проверить на четность. Сделал также реквизит диалога ТемпЧисло (тип - Число, Длина = 19, Точность = 0), поставил флаг "Сделать невидимым". Код:

Процедура Сформировать()
   ТемпЧисло = ВыбЧисло/2;
   ТемпЧисло = ТемпЧисло*2;
   Если ВыбЧисло = ТемпЧисло Тогда
       Сообщить("Четное");
   Иначе
       Сообщить("Нечетное");
   КонецЕсли;    
КонецПроцедуры

наверно я ГЕНИЙ, правда в функции получения НОД есть цикл, но ведь эта функция паскаля а не 1с ))))

Если GCD(МоеЧисло, 2) = 2 Тогда
сообщить(Четное);
Иначе
сообщить(не Четное);
КонецЕсли;



(*************************************************************************
Функция ищет наибольший общий делитель  двух
чисел алгоритмом Евклида.
*************************************************************************)
function GCD(A : Integer; B : Integer):Integer;
begin
   A := AbsInt(A);
   B := AbsInt(B);
   if (a=0) or (b=0) then
   begin
       Result := a+b;
       Exit;
   end;
   while a<>b do
   begin
       if a>b then
       begin
           a := a-b;
       end
       else
       begin
           b := b-a;
       end;
   end;
   Result := b;
end;



Собствено из этого следует довольно простой вывод, что если кто сможет реализовать САБЖ, то он найдет новый нариант поиска НОД, а это будет круто )))

(180)в самой 1С есть функция которая определит... но их использовать нельзя... да и циклы тоже

Не по теме... просто так... красиво...

Функция НеЧетноеЧисло(Знач Число) Экспорт

// Возврат: Истина для нечетного числа, иначе Ложь

  Если Число>0 Тогда
     Возврат ?(Число<2, Число, НеЧетноеЧисло(Число-2));
  Иначе
     Возврат ?(Число>-2, -Число, НеЧетноеЧисло(Число+2));
  КонецЕсли;

КонецФункции


PS: Виват Гений 1С! Почитал, - отдохнул душой...
Вспомнил как в школе с дочкой уроки готовили: "Не так нельзя: мы интегралы только в 3-м классе будем проходить" О_О

самая красивая и максимально близкое решение у kost в (16)


функция ЧетНеЧет(чисЗнач)
 с = чисЗнач / 2;
 д = "" + с + ".5";
 е = а / 2 * 10 + 0.5;
 ф = "" + е;
 если ((а = 0) или (д =  ф)) тогда
   возврат "Четное";
 иначе
   возврат "Нечетное";
 конецесли;
конецфункции;


функция ЧетНеЧет(чисЗнач)
 с = чисЗнач / 2;
 д = "" + с + ".5";
 е = чисЗнач / 2 * 10 + 0.5;
 ф = "" + е;
 если ((чисЗнач = 0) или (д =  ф)) тогда
   возврат "Четное";
 иначе
   возврат "Нечетное";
 конецесли;
конецфункции;

(183) все-таки (179) круче. Без преобразования строк.

Гений! Разреши строковые преобразования, а то у меня есть красивое решение :о)

Возврат СтрЧислоВхождений(Число/2, ",");

(186) Победа в номинации самое короткое решение

(187) Спасибо!!!

(184) при разных настройках разделитель может быть "." или ","

(185)
для ВыбЧисло = 99999999999999999990 по 99999999999999999999 цикл
   Сформировать();
конеццикла

(186) а если % разрешить - то еще круче получится... кстати, % - более стандартная операция, чем преобразования число/строка

(189) Не нравится (186)? Ты, враг народа, получи:

Возврат СтрЧислоВхождений(Число/2, Сред(0.1,2,1));

(0)в школе информатику не преподавал? )))

(193) +1 Это еще тот вопрос: или мы его..., или он нас...

186 ужe было в 39
Если Найти(СокрЛП(КонтрЧисло/2),".")>0 Тогда Возврат "Не четное";

А по существу - используя заданные параметры - задача решения не имеет.
По любому, нужно знать либо целую часть заданного числа, либо остаток от его деления на два. Операциями "+, -, *, /" этого узнать не возможно, т.к. это не операции разложения числа на составляющие.

(190) ответная граната:

ЧетНечет(2) выдает "Нечетное".

если деление целочисленное
число-(число/2)*2

(196)молодец ... я там нолик пропустил )))



//*******************************************
функция ЧетНеЧет(чисЗнач)
   с = чисЗнач / 2;
   д = "" + с + "0.5";
   е = чисЗнач / 2 * 10 + 0.5;
   ф = "" + е;
   если ((чисЗнач = 0) или (д =  ф)) тогда
       возврат "Четное";
   иначе
       возврат "Нечетное";
   конецесли;
конецфункции;


(198) И правильно говорят: "Работает - не трогай" :-)

А пропади оно пропадом! Дай "сломать" что-нибудь

функция ЧетНеЧет(чисЗнач)
  Возврат ?(чисЗнач=0 Или (""+чисЗнач/2+"0.5")=(""+(чисЗнач/2*10+0.5))), "", "Не") + "Четное";
КонецФункции;

Попытка
 Выполнить("к"+(Значение/2)=1);
 возврат "Четное";
Исключение
 возврат "Нечетное";
КонецПопытки

(198) теперь не срабатывает из-за (189)