Pagini recente » Cod sursa (job #1175059) | Cod sursa (job #1355118) | Cod sursa (job #2971234) | Cod sursa (job #344252) | Cod sursa (job #1420368)
program perm;
type vector1=array[0..9] of byte;
var fr,sol:vector1;
n:longint;
f1,f2:text;
procedure back(x:longint);
var i:longint;
begin
if x=n+1 then begin
for i:=1 to n do write (f2,sol[i],' ');
writeln (f2);
end else begin
for i:=1 to n do
if fr[i]=0 then begin
fr[i]:=1; sol[x]:=i; back(x+1); fr[i]:=0;
end; end;
end;
begin
assign (f1,'permutari.in');
assign (f2,'permutari.out');
reset (f1);
rewrite (f2);
readln (f1,n);
back(1);
close (f1);
close (f2);
end.