Cod sursa(job #1096126)
Utilizator | Data | 1 februarie 2014 16:05:47 | |
---|---|---|---|
Problema | Generare de permutari | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.64 kb |
program p1;
var a,v:array[0..100] of byte;
f,g:text;
n,j,k,u:longint;
am,ev:boolean;
procedure back(k:integer);
var i:integer;
begin
if k>n then begin
for i:=1 to k-1 do write(g,a[i],' ');
writeln(G);
end
else
for i:=1 to n do
if v[i]=0 then begin
v[i]:=1;
a[k]:=i;
back(k+1);
v[i]:=0;
end;
end;
begin
assign(f,'permutari.in');reset(F);
assign(g,'permutari.out');rewrite(G);
readln(f,N);
back(1);
close(F);
close(G);
end.