Question

найти n=ый элемент и сумму ряда Фибоначчи? задача на тему цикл с известным числом повторения

Answer 1

это если без массива

 

var n,i:integer;

a0,a1,a2,s:real;

Begin

  read(n);

  for i:= 1 to n do begin

    if i<3 then a0:=1

    else a0:=a1+a2;

    s:=s+a0;

    a2:=a1;

    a1:=a0;

  end;

  writeln(a0, s);

End.