A(n)=A(n-1)*A(n-2) как запрограммировать в турбо паскале для произвольного n?

Ответы:

Это называется последовательность Фибоначчи
http://pas1.ru/fibonacci - вот тут вывод ряда.

var
a,b,c,i,n: integer;
begin
write('n = ');
readln(n);

a := 0;
write(a,' ');
b := 1;
write(b,' ');
for i:=3 to n do begin
c := b;
b := a + b;
a := c
end;
write(a);
readln
end.

Удачник

Magestro ошибся. Ряд Фибоначчи - это суммы двух предыдущих чисел, а не произведения.
Но программу он написал правильную, только надо заменить
c := b;
b := a * b;
a := c;

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.