- 846 名前：デフォルトの名無しさん mailto:sage [2008/12/20(土) 10:13:13 ]
- program prog1(input, output);
var i,n : integer;
p : array[1..10] of integer ;
procedure perm(i,n:integer);
var j,t :integer;
begin
if i<n+1 then
begin
for j:=i to n do
begin
t:=p[i] ; p[i]:=p[j] ; p[j]:=t ;
perm(i+1,n);
t:=p[i] ; p[i]:=p[j] ; p[j]:=t ;
end;
end
else
begin
for j :=1 to n do write(p[ j ],' ');
writeln('');
end;
end;
begin
write('n='); read(n);
for i := 1 to n do p[i]:=i;
perm(1,n);
end.
