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

Question

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

Экономика

Гость

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

Accepted Answer

это если без массива 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.