Составьте программу заполнения массива a [1...10] числами Фибоначчи. В последовательности Фибоначчи первый элемент равен нулю, второй - единице, а каждый элемент, начиная с третьего, равен сумме двух предыдущих.

Бекзат2000 Бекзат2000    2   05.10.2021 00:25    24

Ответы
ssnn70p0aegz ssnn70p0aegz  05.10.2021 01:00

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика