Question

Дано трехзначное число.Получить 6 различных чисел,образованных перестановкой цифр заданного числа.ЗАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.

Answer 1

var n,n1,n2,n3:integer;
function srostit(a,b,c:integer):integer;
begin
    srostit :=     a*100 + b*10 + c;
end;

Begin
    read(n);
    n1:=n div 100;
    n2:=n mod 100 div 10;
    n3:=n mod 10;

    writeln(srostit(n1,n2,n3));
    writeln(srostit(n1,n3,n2));
    writeln(srostit(n2,n1,n3));
    writeln(srostit(n2,n3,n1));
    writeln(srostit(n3,n1,n2));
    writeln(srostit(n3,n2,n1));
End.