Help информатика pascalabc.net уровень a. а) заполните - вопрос №8798565 от Posrednikova04 27.12.2020 00:08

Question

Информатика: Help информатика pascalabc.net уровень a. а) заполните все элементы массива значением x , введённым с клавиатуры. б) заполните массив первыми n натуральными числами, начиная с x (значение x введите с клавиатуры). уровень b. а) заполните массив натуральными числами в обратном порядке, начиная со значения x, введённого с клавиатуры. последний элемент должен быть равен x, предпоследний – x–1 и т.д. б) заполните массив степенями числа 2 (от 21 до 2n), так чтобы элемент с индексом i был равен 2i.

Posrednikova04 · Answer

//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....