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

Question

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

Answer 1

Uses crt;
var i:integer;
begin
  for i:=100 to 999 do
  if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
    ((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.

Comments

Сначала сравниваются 1 и 3 цифры, потом 3 и 2, потом 1 и 2.