** языке Паскаль решить задачу: Вывести ** экран в возрастающем порядке все трехзначные...

Question

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

Answer 1

Var
   i,j,k:integer;
begin
 for i:=1 to 9 do
  for j:=0 to 9 do
   if i<>j then
    for k:=0 to 9 do
      if (i<>k) and (j<>k) then  writeln(i*100+j*10+k)
end.