Question

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

Answer 1

program UniqueDigits;
var   num, digit1, digit2, digit3: integer;
begin   writeln('Трехзначные числа без повторяющихся цифр:');
     for num := 100 to 999 do   begin     digit1 := num mod 10;     digit2 := (num div 10) mod 10;     digit3 := num div 100;
         if (digit1 <> digit2) and (digit1 <> digit3) and (digit2 <> digit3) then       writeln(num);   end;
     readln; end.