PascalABC.NET
Составьте программу заполнения массива а [1..10] числами Фибоначчи. В последовательности Фибоначчи первый элемент равен нулю ,второй — единице, а каждый элемент, начиная с третьего, равен сумме двух предыдущих.
Составьте программу заполнения массива а [1..10] числами Фибоначчи. В последовательности Фибоначчи первый элемент равен нулю ,второй — единице, а каждый элемент, начиная с третьего, равен сумме двух предыдущих.
More Questions From This User See All
Answers & Comments
var
a:array [1..10] of integer;
i:integer;
begin
a[1]:=0;a[2]:=1;
write(a[1],a[2]:4);
for i:=3 to 10 do
begin
a[i]:=a[i-2]+a[i-1];
write(a[i]:4);
end;
end.
Если моё решение помогло вам, пометьте его лучшим. Спасибо!