Программа на языке Паскаль:
var
n, a, b, c, t: integer;
begin
for n := 100 to 999 do
a := n div 100;
b := (n div 10) mod 10;
c := n mod 10;
if (a <> b) and (b <> c) and (c <> a) then Writeln(n);
end;
end.
