2 небольших задачи, помогите решить Опции

[usi]

здраствуйте. помогите пожалуйста решить 2 вот такие задачи:

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

№2 Убрать из заданной строки все повторные вхождения каждой литеры (символа).

спасибо.

[volvo]

А поиском нельзя было воспользоваться? Вторая задача уже решена здесь...

А вот первая:

Код

var i, j, k: char;
begin
 for i := '1' to '9' do
   for j := '0' to '9' do
     for k := '0' to '9' do
       if (i <> j) and (j <> k) and (i <> k)
         then writeln(i, j, k);
end.

Сообщение отредактировано: volvo - 23.10.2004 18:30

[GoodWind]

volvo, терпимее, человек не читал правила ;)

[Altair]

виноват он сам.... странно они вроде теперь видны...