Найти n=ый элемент и сумму ряда фибоначчи? на тему - вопрос №158348 от gbvf1 05.12.2022 00:33

Question

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

gbvf1 · 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.