Question

Помогите пожалуйста с паскалем

1) Заполните массив А первыми N натуральными числами, начиная с X (x ввести с клавиатуры)

2) Заполнить массив A первыми N натуральными числами Фибоначчи. Первые два числа Фибоначчи равны единице, а каждое последующее вычисляется как сумма всех предыдущих.

Answer 1

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x,n):=ReadInteger2('Введите x и n:');

 var a:=x.To(x+n-1).ToArray;

 a.Println;

 // фибоначчи

 a:=ArrGen(n,1,1,(i,j)->i+j);

 a.Println

end.