Найдите сумму элементов последовательности с точностью 0, 001. 1) s=1+2/(2*3)-4/(3*9) +6/(5*27)-8/(8*81)+10/(13* ответ: s=1.220 нужно решение само ! !

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var eps := 0.001;
var (s,tmp):= (1.0,0.0);
var i := 1; var k := 2.0;
var (a, fib):= (1,2);
while (abs(s-tmp) > eps)do
  begin
    tmp:= s;
    s+= k / (fib * 3**i );
    inc(i); k:= (abs(k) + 2)*k/abs(k); k *= -1;
   
    (a,fib) := (fib, a + fib);
  end;
 Writeln(S);
end.

Var
  i,j,p:integer;
  a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
  begin
  a[i]:=random(20);
  write(a[i],' ');
  end;
writeln;
i:=1;
while i<21 do
  begin
  j:=i;
  while j<21 do
    begin
    if a[i]<a[j] then
      begin
      p:=a[i];
      a[i]:=a[j];
      a[j]:=p;
      end;
    j:=j+2;
    end;
  i:=i+2;
  end;
i:=2;
while i<21 do
  begin
  j:=i;
  while j<21 do
    begin
    if a[i]>a[j] then
      begin
      p:=a[i];
      a[i]:=a[j];
      a[j]:=p;
      end;
    j:=j+2;
    end;
  i:=i+2;
  end;
writeln('Измененный массив:');
for i:=1 to 20 do write(a[i],' ')
end.

Перевод числа Х из 10-тичной системы в n-ичную осуществляется путем деления с остатком числа Х на n, затем Х1 = Х/n на n и тд (до тех пор, пока Хi больше 0) и записыванием остатков деления в обратном порядке. В нашем случае:
Х = 10, n = 2, % - операция получения остатка от деления, / - операция получения целой части от деления.
1) 10 % 2 = 0; 10 / 2 = 5
2) 5 % 2 = 1; 5 / 2 = 2
3) 2 % 2 = 0; 2 / 2 = 1
4) 1 % 2 = 1; 1 / 2 = 0 => конец. Выпишем остатки в обратном порядке (т.е. из шагов 4), 3), 2) и 1)):
10 (в 10-ной) = 1010 (в 2-ной)
Проверка:
1010 (в 2-ной) = 1*2^3 + 0*2^2 + 1*2^2 + 0*2^0 = 8 + 0 + 2 + 0 = 10 (в 10-ной)