1. Дано послідовність чисел Фібоначчі. Визначити члени послідовності u1, u2, … un та їх...

Question

1. Дано послідовність чисел Фібоначчі. Визначити члени послідовності u1, u2, … un та їх суму (n - номер за списком).

Answer 1

Var
a,b,c,i,n,s: integer;
begin
write('Введите n: ');
readln(n);
a := 0;
write(a,' ');
b := 1;
write(b,' ');
s:=1;
for i:=3 to n do begin
write(a+b,' ');
s:=s+a+b;
c := b;
b := a + b;
a := c;
end;
writeln();
writeln('Сумма: ',s);
end.