Сперва получить из числа все цифры
Проще всего переведя в строку - тогда каждый символ и есть число.
Если нельзя через строку, последовательно mod и div.
Далее по очереди ( в цикле ) берешь цифрыот первй до предпоследней и сравниваешь их ( в еще одном цикле ) с цифрами от следующей до последней.
Если нашел хоть одно совпадение - высказывание ложно.
_________
ЗЫ: опоздал - поправлю NIch : строки вроде начинаются с 1 и при j := i - S[i]=S[j] ( у меня "на коленке" и похуже бывает )
|