// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!
№3
begin
var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1);
a.Println;
end.
Пример:
N= 10
x= 13
13 14 15 16 17 18 19 20 21 22
№4
begin
var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1).Reverse;
a.Println;
end.
Пример
N= 10
x= 13
22 21 20 19 18 17 16 15 14 13
№5
begin
var b:=ArrGen(ReadInteger('N='),1,1,(x,y)->x+y); b.Println
end.
Пример
N= 10
1 1 2 3 5 8 13 21 34 55