Cod sursa(job #144611)
Utilizator | Cezar Mocan CezarMocan | Data | 27 februarie 2008 20:09:24 |
---|---|---|---|
Problema | Generare de permutari | Scor | Ascuns |
Compilator | fpc | Status | done |
Runda | Marime | 0.92 kb |
var s:array[1..10] of longint;
n,k:longint;
procedure back(k:longint);
var i,j:longint;
ok:boolean;
begin
if k=n then
begin
for i:=1 to n do
write(s[i],' ');
writeln;
end
else
begin
for i:=1 to n do
begin
ok:=true;
for j:=1 to k do
if s[j]=i then
begin
ok:=false;
break;
end;
if ok then
begin
s[k+1]:=i;
back(k+1);
end;
end;
end;
end;
begin
assign(input,'grader_test2.in');reset(input);
assign(output,'grader_test2.ok');rewrite(output);
readln(n);
back(0);
close(input);close(output);
end.