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

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

begin

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

end.

и это - всё !

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

обрати внимание! 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.

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.