附程序代码(pascal语言)
var
a:array[1..10000]of longint;
i,j,k,l,m,n:longint;
begin
assign(output,'e:\out.txt');
rewrite(output);
fillchar(a,sizeof(a),0);
a[1]:=1;
for i:=1 to 3333 do begin
case a of 1:begin
a[3*i-2]:=1;
a[3*i-1]:=1;
a[3*i]:=2;
end;
2:begin
a[3*i-2]:=1;
a[3*i-1]:=1;
a[3*i]:=1;
end;
end;
end;
n:=0;
for i:=1 to 2187 do write(a);
writeln;
for i:=1 to 2183 do if [a,a[i+1],a[i+2],a[i+3],a[i+4]]=[1] then inc(n);
writeln(n);
close(output);
end.作者: 铯_猪哥恐鸣 时间: 2007-12-23 13:48:08