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

Question

Информатика

Агафоника

15 мая, 13:37

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

+4

Ответы (1)

Знаете ответ?

Машута · 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.