Найти n=ый элемент и сумму ряда фибоначчи? на тему - вопрос №157780 от Aegon 05.01.2023 17:48

Question

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

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