Подсчитать количество последовательностей длины N, состоящих из 0 и 1, в которых никакие две единицы не стоят рядом

@Игорёк98 · Регистрация: 17.12.2013

Author24 — интернет-сервис помощи студентам

(Ссылка на сторонний ресурс удалена)
Требуется подсчитать количество последовательностей длины N, состоящих из 0 и 1, в которых никакие две единицы не стоят рядом.
Формат входных данных
На вход программы поступает целое число N (1N100).
Формат выходных данных
Выведите количество искомых последовательностей.
Пример
Входные данные 5
Выходные данные 13

решил эту задачу, нашел закономерность... но не все тесты прошло...

Pascal

var n:integer;
    x:extended;
begin
readln(n);
n:=n+2;
if odd(n) then x:=((exp(n*ln((1+sqrt(5))/2))+exp(n*ln(abs((1-sqrt(5)))/2)))*sqrt(5))/5 else
x:=((exp(n*ln((1+sqrt(5))/2))-exp(n*ln(abs((1-sqrt(5)))/2)))*sqrt(5))/5;
writeln(x:0:0);
readln
end.

работает по формуле Бине:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?F_n=\frac{\left(\frac{1+\sqrt{5}}{2} \right)^n-\ \left(\frac{1-\sqrt{5}}{2} \right)^n}{\sqrt{5}}$

https://ru.wikipedia.org/wiki/... 1%87%D0%B8

@light_girlz · 25.04.2014, 00:05

Я в PascalABC проверила, ругался на тип extended - поменяла на real и все запустилось

Pascal

 x:real;

@Cyborg Drone · 25.04.2014, 02:05

Комментарий модератора

Игорёк98, рекомендую ознакомиться с правилами форума. Ссылки на сторонние ресурсы для текстов заданий и ответов запрещены. Текст задания перепечатывайте на форум. Фотографии текста запрещены. Не будете соблюдать правила, в угол поставлю.

@Narkok · 17.01.2016, 13:29

Если что, решается данная задача через Фибоначчи, но проблема в том, что там присутствует длинная арифметика. (на f[100] число, с 21 цифрами в десятичной записи).

@Narkok 0 / 0 / 0 Регистрация: 21.10.2014 Сообщений: 12
	17.01.2016, 13:29	4
	Если что, решается данная задача через Фибоначчи, но проблема в том, что там присутствует длинная арифметика. (на f[100] число, с 21 цифрами в десятичной записи). 0