Cho trước số nguyên dương n <10. Hãy in ra tất cả các hoán vị có n phần tử liên tục kể từ số 1. Ví dụ: n=3 ta có 6 hoán vị: 123, 132, 213, 231, 312, 321.
program p; uses crt; var n:integer; s:string; procedure dq(s:string); var i:char; begin if length(s)<>n then begin for i:='1' to chr(n+48) do if pos(i,s)=0 then dq(s+i); end; if length(s)= n then writeln(s); end; begin clrscr; readln(n); dq(''); readln end.
Dùng nick gmail để bình luận. Nếu lần đầu tiên bạn làm điều này thì hệ thống sẽ chuyển bạn sang trang blogger và hỏi bạn chọn tên hiển thị là gì. Bạn hãy nhập tên hiển thị rồi ok là được. Những lần bình luận sau hệ thống sẽ không hỏi nữa. Cảm ơn!
program p;
Trả lờiXóauses crt;
var n:integer; s:string;
procedure dq(s:string);
var i:char;
begin
if length(s)<>n then
begin
for i:='1' to chr(n+48) do
if pos(i,s)=0 then dq(s+i);
end;
if length(s)= n then writeln(s);
end;
begin
clrscr;
readln(n);
dq('');
readln
end.