Подскажите как определить число четное или нет?

разделить пополам и посмотреть остаток

%2

?(МоёЧисло % 2 = 0, "Четное", "Нечетное")

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

%

ну и я добавлю свое слово: %

Аааааа! Понятно! Спасибо!

Функция Четное(Числ)
 Если Числ=1 Тогда
   Возврат Ложь;
 Иначе
   Возврат не Четное(Числ-1);
 КонецЕсли;
КонецФункции;

(8) закусывать надо ...

(8)а можно еще совсем через ж...

(8) Надо же так не ненавидеть!

че вы такие хмурые?

Типа так
Функция (ЧсловоеЗначение)
с="Четное";
с1="Не четное";
Если ЧсловоеЗначение=1 тогда
Возврат  с1;
ИначеЕсли  ЧсловоеЗначение=2 тогда
Возврат  с;
ИначеЕСли и т. д. пока не налоест.
А меще можно справочник создать и заполнить

Да сколько угодно извращенных вариантов придумать можно

Либо так:

Если Окр(МоеЧисло/2) = МоеЧисло/2 Тогда
   // четное
Иначе
   // нечетное
КонецЕсли;

Функция Четное(Числ)
 Рез = Истина;
 Для й=1 По Числ Цикл
   Рез =не Рез;
 КонецЦикла;
 Возврат Рез;
КонецФункции;

Убил

(16) Нах плодишь нерабочие варианты в (8,16) ???

(18) они работают

да шутят они...

(19) -1 ?

(20) Кто именно?

(21) для отрицательных чисел - домашнее задание. не волнуйся, я шучу

23 - не работает, если число больше 2000. на 1025 еще работает...

//функция возвращает число в двоичной системе строкой
Функция Из10тичнойВ2ичную( число )
КонецФункции

// возвращает истина - если четное, и ложь, если нечетно
Функци Четное(число)
 Возврат Прав( Из10тичнойВ2ичную(число), 1) = "0" ;
КонецФункции
 


:))))))

Перечисление.ЧетностьЧисла.Чет
Перечисление.ЧетностьЧисла.Нечет

Справочник с реквизитами "СамоЧисло" и "ЧетностьЧисла" с 2 000 000 000 элементами.

Чсл=ЧислоКотороеНужноОпределитьНаЧетность;
Пока Чсл>1 Цикл
  Чсл=Чсл-2;
КонецЦикла;
Если Чсл=0 Тогда
  Сообщить("Четное");
Иначе
  Сообщить("Нечетное");
КонецЕсли;

Всё туфта. ВК надо писать

Еще вариант:
Функция Четное( число )
  Возврат Найти( "24680", Прав(Число,1) ) > 0 ;
КонецФункции

©РупорАбсурда только что предложил :)))))

Если (Прав(Строка(Числ),1) = 0)
ИЛИ (Прав(Строка(Числ),1) = 2)
ИЛИ (Прав(Строка(Числ),1) = 4)
ИЛИ (Прав(Строка(Числ),1) = 6)
ИЛИ (Прав(Строка(Числ),1) = 8) Тогда
Сообщить("Четное");
ИначеЕсли (Прав(Строка(Числ),1) = 1)
ИЛИ (Прав(Строка(Числ),1) = 3)
ИЛИ (Прав(Строка(Числ),1) = 5)
ИЛИ (Прав(Строка(Числ),1) = 7)
ИЛИ (Прав(Строка(Числ),1) = 9) Тогда
Сообщить("НеЧетное");
Иначе
Предупреждение("Сбой в работе системы. Код ЧтНчтФгн. Обратитесь к разработчику.");
ЗавершитьРаботуСистемы();
КонецЕсли;

(30) не читаемо! :))
еще варианты!?