[Nurlan]

я не знаю что надо написать чтобы программа проверяла числа

[NIch]

Элеменатрно...

Код:

//Есть число n
var
 n : Word;//число
 s : String;//строка-массив символов
 i, j : word;
 check : boolean;
begin
 Check := True;
 s := IntToStr;//перевести число в строку
 for i := 0 to Length(s)-1 do//от нуля до конца строки
  for j := i to Length(s)-1 do//от определенного символа до конца строки 
   if S[i]=S[j] then//если определенный символ совпадает с любым остальным
    Check := false;//то проверка не пройдена
 if Check then//если проверка пройдена
  ShowMessage('Сопадений нет')
 else//если проверка не пройдена
  ShowMessage('Совпадения есть');
end;

Код написпал "на коленке", т.е. нужно его потестить...но направление верное...

[s0Creator]

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

[m0nzt3r]

А через множества не проще?

[s0Creator]

Сообщение от m0nzt3r

А через множества не проще?

Поясни на примере.

[m0nzt3r]

Сообщение от s0Creator

Поясни на примере.

Вот простенький:

Код:

var
  st:string; mn:set of char; i:byte; ok:boolean;
begin
  st:=Edit1.Text;
  ok:=true;
  for i:=1 to Length(st) do begin
    if st[i] in mn then ok:=false
    else mn:=mn+[st[i]];
  end;
  if ok=true then ShowMessage('Win!') else ShowMessage('Fail!');
end;

Это если вводить текстом число. Если оно просто целым числом передается, вначале преобразуй его в строку и все. А так - эта прога будет работать даже для буквенных строк, в принципе.

[Nurlan]

спасбо всем с наступающим вас ) проверю