Последовательность чисел, Обработка одномерного массива Опции

[medved777]

Родные мои, помогите пожалуйста! Не могу даже алгоритм набросать. Дайте идею. Надеюсь только на вашу помощь.
Задача: Напечатать в возрастающей последовательности все трехзначные числа, в десятичной записи которых нет одинаковых цифр. Операцией деления не пользоваться.

Сообщение отредактировано: medved777 - 13.02.2007 13:46

[Perfez]

 
var
a:integer;
s:string[3];
Begin
For a:=100 to 999 do
Begin
Str(a,s);
If (s[1]<>s[2]) and (s[2]<>s[3]) and (s[1]<>s[3]) then WriteLn(a);
End;
End.