ПОМОГИТЕ ПОЖАЛУЙСТА!!!)))
Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.Через цикл while

Ответ:

program qwerty;

var i: integer;

begin

for i:=100 to 1000 do

if ((i div 100)<>((i div 10) mod 10)) and ((i div 100)<>(i mod 10)) and ((i mod 10)<>((i div 10) mod 10))

then writeln(i);

end.

Объяснение: