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

[TokSeven]

Задали в институте задачку, слово в слово:

Определить, есть ли среди первых N цифр заданного целого числа цифра K.

Решил её, но появилась проблема, заключающаяся в том, что нельзя использовать циклы и операторы условия, а как без них её решить, я не представляю. Позарез надо сдать в течение недели, хотелось бы услышать ваши размышления по сему вопросу. Заранне спасибо.

[BHy4ok]

Попробуйте через "pos()";
Хотя лучше уточнить у препода, я так понимаю он хочет увидеть от вас что-то конкретное.

[TokSeven]

Уточнил у препода, сказал что можно поставить точное количество первых цифр, в данном случае N=4. Спасибо за совет, но он ещё сказал, что нужно использовать только стандартные функции. Одной проблемой меньше. Четыре раза напишу:

Код: Выделить всё

A1:=A MOD 10;
A:=A DIV 10;

Но осталась вторая: Как без оператора IF определить, есть ли заданная цифра "К" среди этих первых цифр?

[Хыиуду]

writeln(A1=K);
А препод у вас извращенец.