Быстрое возведение в степень Возводить в степень можно гораздо быстрее, чем за n умножений! Для этого нужно воспользоваться следующими рекуррентными соотношениями: an=(a2)n/2 при чётном n, an=a∗an−1 при нечётном n. Реализуйте алгоритм быстрого возведения в степень. Если вы всё сделаете правильно, то количество умножений будет иметь порядок log2n. Нельзя использовать операцию возведения в степень. Входные данные: Вводится действительное число a и целое неотрицательное число n. Выходные данные: Выведите ответ на задачу. Примеры: Ввод 2 7 Вывод 128 Ввод 1.00001 100000 Вывод 2.71827

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

20-25=-5                                                                                   

for i : = 1 to length(s) do

begin

      res : = res + s[i];

      if i mod 2 = 0 then

            res : = res + s[i];

end;

writeln(res);

i : = pos(" ",s); {ищем первый пробел}

delete(s; i; 1); {удаляем первый пробел}

i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}

writeln(s[i-1]); {выдаем знак который находится перед пробелом}