Нужна функция F(Х,У) с двумя параметрами, где
Х - целочисленное от 1 до 11111. Все числа внутри либо 0 либо 1
У - число от 1 до 5
Функция должна возвращать число из Х по номеру У
Например:
F(10101,3) = 1
F(10101,4) = 0
F(10110,1) = 1
F(1001,1) = 0
Функции доступны только арифметические операции, условия и циклы. Строковые операции недоступны.
Как решить?

Округления тоже недоступны

типа того (наверно ошибки есть но суть понятна)

если x%(y**10) > 0 тогда возврат 1 иначе возврат 0

(0) Хорошая попытка.:-)
Промолчу, пусть молодежи подумает.

Смеха ради вспомнилось :)
Автор: vde69

мЧисло = ТвоеЧисло % 256;
Бит8 = (мЧисло - (мЧисло % 128)) > 0
мЧисло = мЧисло % 128;
Бит7 = (мЧисло - (мЧисло % 64)) > 0
мЧисло = мЧисло % 64;
Бит6 = (мЧисло - (мЧисло % 32)) > 0
мЧисло = мЧисло % 32;
...

Цифра1 = Х - Цел(Х/10)*10;
Х = Цел(Х/10);
Цифра2 = Х - Цел(...

а почему?
>F(1001,1) = 0

Затупил, снимаю вопрос :(

Затупил дважды, поднимаю обратно :)

Хмм... думаешь автор не может тупить? Ты - можешь, а он - нет? Сама его тема говорит об обратном :)

PS: просто ошибка в последнем примере - не дописал нолик. По условию ясно же, что должно быть пять разрядов в числе.

Сильно смахивает на что-то с двоичным основанием,

(0) Автор, ты разницу между числом и цифрой понимаешь?

(11) число не является цифрой, но  цифра сама по себе обозначает число, не придирайся

(12) вранье :)

что то было, что при сдвиге бит переполнения устанавливался, 2^5 -х - 1 двигаем и вуаля

(12) шта?!
цифра ничего сама по себе не обозначает. цифра - это символ, крючок.
напротив, число - суть вещь. оно существует независимо от каких-то цифр.

(15) если у тебя нет символов обозначающих сущность ты не сможешь работать с этой сущностью

(12), (16) Ты еще скажи, что у числа есть позиция

(0) Вроде работает

&НаКлиенте
Функция F(Знач X,Знач Y)
    Y = 5 - Y;
    Для ш = 0 по Y Цикл
        Остаток = X%10;
        X = (X - 1)/10;
    КонецЦикла;
    Возврат Остаток;
КонецФункции

&НаКлиенте
Процедура Команда1(Команда)
    Сообщить (F(X,Y));
КонецПроцедуры


+(18) Верней
X = (X - Остаток)/10;

(18) некузяво
% - некошерная операция, не подходит по условиям задачи

F = x & 1 << y

Функция F(Знач Х, Знач У)
    
    Перем Цифра;
    
    Для НЦ = 1 По 5 Цикл
        Множитель = 1;
        Для Степень = 1 По 5 - НЦ Цикл
            Множитель = Множитель * 10;
        КонецЦикла;
        //Множитель = Pow(10, 5 - НЦ);
        Х = Х - Множитель;
        Если Х >= 0 Тогда
            Цифра = 1;
        Иначе
            Цифра = 0;
            Х = Х + Множитель;
        КонецЕсли;
        Если НЦ = У Тогда
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Возврат Цифра;
КонецФункции

пожалуй уберу "Прервать"

Функция F(Знач Х, Знач У)
    
    Перем Цифра;
    
    Для НЦ = 1 По У Цикл
        Множитель = 1;
        Для Степень = 1 По 5 - НЦ Цикл
            Множитель = Множитель * 10;
        КонецЦикла;
        //Множитель = Pow(10, 5 - НЦ);
        Х = Х - Множитель;
        Если Х >= 0 Тогда
            Цифра = 1;
        Иначе
            Цифра = 0;
            Х = Х + Множитель;
        КонецЕсли;
    КонецЦикла;
    Возврат Цифра;
КонецФункции

(20) Смотрим справку

Арифметические операции
В языке  определены следующие виды арифметических операций:

сложение
(Оп1 + Оп2)

вычитание
(Оп1 - Оп2)

умножение
(Оп1 * Оп2)

деление
(Оп1 / Оп2)

остаток от деления
(Оп1 % Оп2)

унарный минус
(-Оп1)

Вот еще вариант:[CODE]Функция Ф(Х, У)
    Возврат ?(У < 2, 0 + (Х > 9999), Ф((Х - 10000 * (Х > 9999)) * 10, У - 1))
КонецФункции[/CODE]

+(25) ... Функция Ф(Х, У)
    Возврат ?(У < 2, 0 + (Х > 9999), Ф((Х - 10000 * (Х > 9999)) * 10, У - 1))
КонецФункции

(0) почему у тебя
F(10110,1) = 1
и
F(1001,1) = 0
?

(0) log10() можно использовать?

(27) У него со старших битов начинается. Если разрядность маленькая, то спереди нули. Я так понял...

Во вы тут накодили! =)))

(28) Не... нельзя

(27) Да, все верно F(1001,1) = 0 потому что первое число отсутствует

(23)  wertyu, работает!

(26) Ildarovich, круто!!!

(18) shpioleg - читер (%), зато самый скоростной =))

Ildarovich, кинь контакт в личку, с меня угощение!