Различие цифр в числе, Проверить различны ли цифры в числе Опции

[vadim(b)]

30 минут искал поиском ниче не нашел. Прогу надо сделать любым способом(через строки или иным другим) мне мысли чето ни какой ни лезет, длина числа может быть различна. Кому не трудно накидайте хотябу саму основу кода :0

[T i m e]

Ну через строку к примеру можно так...

Код

var n,i,j:integer;
nst:string;
fl:boolean;
begin
clrscr;
write('Введите число: ');
readln(n);
str(n,nst);
fl := true;
for i := 1 to length(nst) do
for j := 1 to length(nst) do
  if (i <> j) and (nst[i] = nst[j]) then fl := false;
if fl then writeln('В числе не повторяются цифры') else
writeln('В числе повторяются цифры');
readln;
end.

Ну как volvo написал так конечно попроще будет...
Я просто через строки сделал...

Сообщение отредактировано: T i m e - 1.03.2007 19:16