Введите массив а из 15 целочисленных элементов. сформировать массив в из квадратных корней и массив с из квадратов элемента массива а. вывести массивы в и с. . нужно.

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(15);
  var b:=a.Select(t->Sqrt(t)).ToArray; b.Println;
  var c:=a.Select(t->t*t).ToArray; c.Println
end.

Передача информации — физический процесс, посредством которого осуществляется перемещение знаков

Объяснение:

1. Передача информации — физический процесс, посредством которого осуществляется перемещение знаков (сведений предоставлять информацию) в пространстве или осуществляется физический доступ субъектов к знакам

2. Модем, сетевой адаптер, сетевой концентратор

3.  Носитель информации - это любой материальный объект, используемый для закрепления и хранения на нем информации. Удобнее всего использовать флэш память, т.к. он имеет большой объём памяти и маленький размер

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

Плюсы: Простота в использовании, Влияние на экологию (письма, отправленные электронным , не используют бумагу) Скорость, Хранение данных, Вложения , Дешевый сервис,  Минусы:  Взлом, Спам (Письма, которые используются для отправки несанкционированных сообщений и нежелательной рекламы, создающие неудобства называются спамом),Не подходит для бизнеса (Важные документы могут долго оставаться незамеченными среди большого количества писем), вирусы, необходим доступ к интернету,

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.