BELENKAYAEN

09.07.2020 19:21

Информатика

Есть ответ 👍

Программа на паскале. , ! ряд чисел фибоначчи задается следующим образом: первые два числа равны 1 ( f 1 = f 2 = 1 ), а каждое следующее равно сумму двух предыдущих: f i = f i - 1 + f i - 2 . напишите программу, которая вводит натуральное число n и выводит первые n чисел фибоначчи. входные данные входная строка содержит натуральное число n – количество нужных чисел фибоначчи. выходные данные программа должна вывести в одной строке первые n чисел фибоначчи, разделив их пробелами.

277

295

Посмотреть ответы 3

Ответы на вопрос:

Alina17031

Информатика

4,5(94 оценок)

Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

seqgen(readinteger, 1, 1, (i, j)-> i + j).println

end.

и это - всё !

looney2017

Информатика

4,4(7 оценок)

если интересует решение на классическом паскале, предлагаю просто поддерживать текущее, предыдущее и пред-предыдущее значения в ряду, и в цикле обновлять ответ.

обрати внимание! longint может хранить значения только до , поэтому конкретно в этой программе вывод будет достоверным только для n ≤ 46. ты можешь сделать текущую, предыдущую и пред-предыдущую переменные типа int64, и тогда максимальное значение n возрастёт до 92. для больших n тебе придётся писать длинное сложение.

код

var

i, n, pred, predpred, cur: longint;

begin

read(n);

if n = 1 then writeln(1)

else if n = 2 then writeln('1 1')

else write('1 1 ');

if n < 3 then exit;

pred : = 1;

predpred : = 1;

for i : = 3 to n do

begin

cur : = pred + predpred;

write(cur, ' ');

predpred : = pred;

pred : = cur;

end;

writeln;

end.

изу197

Информатика

4,4(99 оценок)

Var k,sum,summ: integer; begin summ: =1; repeat writeln('введите число'); readln(k); if (k mod 2< > 0) and (k< 0) then sum: =sum+k; if (k> 0) and (k mod 3=0) then summ: =summ*k; until k=0; if (sum=null) and (summ=1) then writeln('нет таких чисел') else begin writeln('сумма: ',sum); writeln('произведение: ',summ); end; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.