Три единицы подряд

[daniil123]

По данному числу N определите количество последовательностей из нулей и единиц длины N, в которых никакие три единицы не стоят рядом.
Во входном файле написано натуральное число N, не превосходящее 35.
Выведите количество искомых последовательностей.
Пример:
Вход:
4
Выход:
13

[VIK_aka_TOR]

с комбинаторикой знакомы?... или нужно это все прогонять через комп?...
это так.. вопрос для дальнейшего решения каким путем идти...)

[Plague]

мда уж, ну если наработок нет, то разбирайся:

var a:array[0..4] of int64;
    i,n:integer;
begin
  read(n);
  a[0]:=1;
  a[1]:=2;
  a[2]:=4;
  a[3]:=7;
  for i:=4 to n do 
    begin
      a[4]:=a[3]*2-a[0];
      a[0]:=a[1];
      a[1]:=a[2];
      a[2]:=a[3];
      a[3]:=a[4];
    end;
  if n>3 then write(a[4]) else write(a[n]);  
end.

[Plague]

Так код конечное красивее, но в первом разобраться легче.

var a:array[0..4] of int64:=(1,2,4,7,0);
    i,j,n:integer;
begin
  read(n);
  for i:=4 to n do 
    begin
      a[4]:=a[3]*2-a[0];
      for j:=0 to 3 do a[j]:=a[j+1];
    end;
  if n>3 then write(a[4]) else write(a[n]);  
end.