Найти n=ый элемент и сумму ряда фибоначчи? на - вопрос №158180 от maxmax6 19.01.2022 00:53

Question

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

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