Список степеней Используя генератор, составьте список S , заполненный степенями числа X от 0 до N−1 и распечатайте его инструкцией print(S Входные данные В двух строках входного файла заданы натуральные числа X и N, не превосходящие 200 по значению. Выходные данные Выведите список с инструкции print.

===== PascalABC.NET =====

begin

 var (x, n) := ReadInteger2;

 var s := SeqGen(n, i -> BigInteger(x) ** i).ToList;

 s.Print

end.

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Число строк и столбцов массива:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 var k := ReadInteger('Сколько первых элементов обработать?');

 if not k.InRange(1, m * n) then

   Println('Введено недопустимое значение')

 else

 begin  // замена построчно

   var r := k div n;   // число полных строк

   if r > 0 then

   for var i := 0 to r - 1 do

     for var j := 0 to n - 1 do

       a[i,j] := -a[i,j];

   for var j := 0 to k - r * n - 1 do

     a[r,j] := -a[r,j];

   a.Println(4)  

 end

end.

Второй вариант использует более продвинутые возможности PascalABC.NET. Замена выполняется единственным оператором.

begin

 var (m, n) := ReadInteger2('Число строк и столбцов массива:');

 var a := MatrRandom(m, n, -99, 99);

 a.Println(4);

 var k := ReadInteger('Сколько первых элементов обработать?');

 if not k.InRange(1, m * n) then

   Println('Введено недопустимое значение')

 else

 begin  // замена построчно

   a.Transform((p, i, j) -> n * i + j < k ? -p : p);

   a.Println(4)  

 end

end.

Объяснение:

Мы живём в XXI веке, веке прогресса информационных технологий, поневоле вступая в информационную эпоху. Мир вокруг нас перенасыщен информацией, и где бы мы не находились, мы слышим рекламы, видим различные стенды с надписями, знаки и т.д.  

Как правило, информационная технология ведёт к созданию интеллектуальных компьютерных систем. Благодаря компьютерам человечество достигло высокого уровня развития, как интеллектуального, так и технического. В связи с этим у человека появились новые возможности, но в тоже самое время новые обязанности.  

Возможности, открывшиеся в связи с возникновением компьютерных технологий, практически неограниченные, с каждым годом они модернизируются.  

Человек без труда может находить нужную информацию, общаться с людьми, делать покупки, оплачивать счета и др.  

Как правило возможности влекут за собой следующие обязанности: непосредственно, обязанность нести ответственность за свои действия. Обязанность человека знать и использовать свои субъективные права и юридические обязанности.