HELP информатика PascalABC.NET Уровень A. а) Заполните все элементы массива значением X...

Question

HELP

информатика

PascalABC.NET

Уровень A. а) Заполните все элементы массива значением X , введённым с клавиатуры.
б) Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры).

Уровень B. а) Заполните массив натуральными числами в обратном порядке, начиная со значения X, введённого с клавиатуры. Последний элемент должен быть равен X, предпоследний – X–1 и т.д.
б) Заполните массив степенями числа 2 (от 21 до 2N), так чтобы элемент с индексом i был равен 2i.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)


// А,a 
begin
  ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.


// А,б
begin
  var x:=ReadInteger('x=');
  var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.


// B,a 
begin
  var (x,n):=ReadInteger2('x,n=');
  var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.


// B,б
begin
  ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.