Pagini recente » Cod sursa (job #2014368) | Cod sursa (job #903445) | Rating Neamt Mihai (MihaiNG) | Cod sursa (job #1241091) | Cod sursa (job #196340)
Cod sursa(job #196340)
program permutari;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,j,n,m,k,p:integer;
fin,fout:text;
sol:array [1..8] of integer;
v:array [1..8] of byte;
{*-------------------------------*}
procedure tipar;
begin
for i:=1 to n do write(fout,sol[i],' ');
writeln(fout);
end;
{*-------------------------------*}
procedure back(k:integer);
var i:integer;
begin
if k > n then
begin
tipar;
end
else
begin
for i:=1 to n do
begin
sol[k]:=i;
if v[i] = 0 then
begin
v[i]:=1;
back(k+1);
v[i]:=0;
end;
end;
end;
end;
{*-------------------------------*}
begin
assign(fin,'permutari.in'); reset(fin);
assign(fout,'permutari.out'); rewrite(fout);
readln(fin,n);
back(1);
close(fin);
close(fout);
end.