ReijoСоставьте программу заполнения массива a [1. . . 10] числами Фибоначчи. В последовательности Фибоначчи первый элемент равен нулю, второй - единице, а каждый элемент, начиная с третьего, равен сумме двух предыдущих.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
pascal
var
x, y, i: integer;
a: array[1. . 10] of integer;
begin
x := 1; y := 1; a[2] := 1;
for i := 3 to 10 do
begin
y := x + y; x := y - x; a[i] := y;
end;
for i := 1 to 10 do Write(a[i], ', ');
end.
153
LidiyaЧтобы ответить необходимо зарегистрироваться.
