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

1

Ответы и объяснения

2013-02-19T13:10:16+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.