Question

Среди трехзначных натуральных чисел вывести в строчку те, у которых все цифры различны

Answer 1

Var
   A,b,c,d:integer;
Begin
For A:= 100 to 999 do
    Begin
    b:=A div 100;
    c:=(A div 10) mod 10;
    d:=A mod 10;
    if (b<>c)and(b<>d)and(c<>d) then Write(A,' ')
    End;
End.