Сколько n-значных чисел можно образовать из двух цифр 5 и 9, в которых три одинаковые цифры не стоят рядом

[Thunder Dragon]

Две цифры. Сколько n-значных чисел можно образовать из двух цифр 5 и 9, в которых три одинаковые цифры не стоят рядом? Найдите ответ для n = 10.:c onfused:


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Plague]

Найдите ответ для n = 10

178
А наработки то есть у вас?

[Thunder Dragon]

ага... 8 штук и врядли подойдут

[Thunder Dragon]

program z2;
uses crt;
var a,b,n,k,l,c,t,m,y,f,i,r,i1,i3,i2,i4 ,s,p: integer;
BEGIN
read(n);
s:=1;
p:=0;
y:=1;
l:=1;
r:=0;
k:=n -(n div 3);

for i:=1 to n do
s:=s*2;

{-------------------------------------------------------------}

for i:=1 to (n div 3) do begin

a:=1;
For i1:=1 To (n-2*i) Do a:=a*i1;

b:=1;
For i2:=1 To (i) Do b:=b*i2;

c:=1;
For i3:=1 To (n-3*i) Do c:=c*i3;

y:=1;
for i4:=1 to (2*i) do y:=y*2;

l:=s div y;
p:=p+(a div (b*c));
if (n div 3 = 0) then r:=r+2*p
else if (n div 3 = 1) then r:=r+3*p
else r:=r+4*p;



end;

t:=s-r;
write(t);
END.


я не думаю, что это тебе поможет.

[Serge_Bliznykov]

А Вы зря поиском не пользуетесь!

эта та задачка, которую я не смог НОРМАЛЬНО решить.
зато Plague смог (в другой теме, задача в другой формулировке, но суть её ТА ЖЕ!!!)

посмотрите вот эти две темы:
Две цифры. 5 и 9

и вот эту:
Три единицы подряд

[Thunder Dragon]

Спасибо!!!

[Plague]

А я забыл что ее решал, так что решил еще раз но по другому)) ИМХО заново решить проше и быстрее, чем поиском пользоваться.

[Plague]

Две цифры. 5 и 9 пост 6
Ваш перебор я переделал, считает быстрее, но все равно не айс)
Вот код, в котором в 4 раза меньше строк:

var a,k:longint;
function f(n:longint;s:string):integer;
begin
  if n=0 then
    begin if (pos('555',s)=0)and(pos('999',s)=0)then inc(k);end
  else
    begin
      f(n-1,s+'5');
      f(n-1,s+'9');
    end;
  f:=k;
end;
begin
  readln(a);
  writeln(f(a,''));
end.