Вот тут есть задачка одна в которой я что то не могу понять условия задачи.
Если кто поймет можете написать програмный код к ней.

Напечатать в возрастающем порядке все трехзначные числа, в десятичном записи которых нет одинаковых цифр.

Santrex
А в чем проблема с условием? Напечатать трехзначные числа без повторяющихся цифр... Что может быть здесь непонятно? Начало последовательности должно быть таким:

Потому что в 100 повторяется ноль, а в 101 - единица... Теперь понятнее?

а что не понятно?

это такие трехзначные числа, начиная с 102 где нет одинаковых цифр.
ТО есть число 100 (первое трехзначное ) не подходит, т.к. два нуля...
101 - две единицы...
Простейшее решение: перебор всех чисел от 102 до 987 , причем выводить только те, у которых цифры все разные...

volvo :D :P в одно время писали

Спасибо что объяснили.Жаль что кода не прилогаеться

а что в коде может быть не понятно?
можно так например:

for i:=102 to 987 do
begin
If цифры не одинаковы then writeln(i);
end;

тебе только добавить проверку на то, что в числе цифры отличаются...

А как найти что цифры не одинаковы ?

Начать думать наконец !!!

Ну я понимаю как сравнить слово с со словом.Ну там число с числом.А как сравнить символ с символом в числе я понять не могу?

Первая цифра трехзначного числа X это: (X div 100)...
Последняя - это: (X mod 10)... Дальше - думайте ...