Введите размер массива N и заполните массив из N элементов числа Фибоначчи равны 1, а каждое следующее число равно сумме двух предыдущих.
Помогите пожалуйста составить программу..
Помогите пожалуйста составить программу..
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var n:integer;a:array of integer;
begin
write('n = ');
readln(n);
SetLength(a,n);
a[0]:=1; a[1]:=1;
for var i:=2 to n-1 do a[i]:=a[i-2]+a[i-1];
for var i:=0 to n-1 do write(a[i],' ');
writeln;
end.
Пример:
n = 10
1 1 2 3 5 8 13 21 34 55