Помогите пожалуйста!) Решите задачи. 1. Заполните массив A первыми N натуральными...

Question

Помогите пожалуйста!) Решите задачи. 1. Заполните массив A первыми N натуральными числами, начиная с X (ввести X с клавиатуры). 2. Заполнить массив A первыми N числами Фибоначчи. Первые два числа Фибоначчи равны единице, а каждое последующее число Фибоначчи вычисляется как сумма двух предыдущих. 3. Заполните массив степенями числа 2, так чтобы последний элемент массива был равен 1, а каждый предыдущий был в 2 раза больше следующего. Например: 32 16 8 4 2 1

Answer 1

1.

const N = 10;

var a: array [1..N] of integer;

i, x: integer;

begin

   write('Введите x: ');

   readln(x);

   for i := 1 to N do

   begin

       a[i] := x + i - 1;

       write(a[i], ' ');

   end;

end.

2.

const N = 10;

var a: array [1..N] of integer;

i: integer;

begin

   a[1] := 1;

   a[2] := 1;

   for i := 3 to N do

   begin

       a[i] := a[i-1] + a[i-2];

   end;

   for i := 1 to N do

   begin

       write(a[i], ' ');

   end;

end.

3.

const N = 6;

var a: array [1..N] of integer;

i, x: integer;

begin

   a[N] := 1;

   for i := N-1 downto 1 do

   begin

       a[i] := 2 * a[i+1];

   end;

   

   for i := 1 to N do

   begin

       write(a[i], ' ');

   end;

end.