字符序列pascal问题描述从三个元素的集合[A，B，C]中选取元素生成一个N个字符组成的序列,使得没有两个相邻字的子序列相同。例：N=5时ABCBA是合格的，而序列ABCBC与ABABC是不合格的，因

Question

字符序列 pascal
【问题描述】
从三个元素的集合[A，B，C]中选取元素生成一个N个字符组成的序列,使得没有两个相邻字的子序列相同。例：N = 5时ABCBA是合格的，而序列ABCBC与ABABC是不合格的，因为其中子序列BC，AB是相同的。
【输入格式】
　　输入仅有一个整数n(1<=n<=15)。
【输出格式】
　　输出满足条件的N个字符的序列总数。
【输入样例】
3
【输出样例】
12

Answer 1

var
i,sum,n,lena:longint;
ch:char;
st:string;
f:array['A'..'C','A'..'C'] of boolean;
function check:boolean;
var i:longint;
begin
fillchar(f,sizeof(f),false);
for i:=1 to n-1 do
if f[st[i],st[i+1]] then exit(false)
else f[st[i],st[i+1]]:=true;
exit(true);
end;
procedure search(t:longint);
var i:char;
begin
if t>n then begin
if check then begin writeln(st); inc(sum); end;
exit;
end;
for i:='A' to 'C' do
begin
st:=st+i;
search(t+1);
lena:=length(st);
delete(st,lena,1);
end;
end;
begin
readln(n);
sum:=0;
search(1);
writeln(sum);
end.