1. Дано послідовність чисел Фібоначчі. Визначити члени послідовності u1, u2, … un та їх суму (n - номер за списком).
Answers & Comments
VlaNik
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.
Answers & Comments
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.