Вычислить сумму S первых n-членов ряда с точностью E (вводится пользователем). Суммирование членов ряда прекратить, если очередной член ряда y будет меньше E. Составить алгоритм решения задачи в соответствии со своим вариантом на алгоритмическом языке и представить его в виде блок-схемы.

n = 21 (результат измерений от 10 до 30)

n = 2^i

2^i = 21

i = 5 бит

27 * 5 = 135 бит

ответ. 135 бит

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

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

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

8=1000(2)=8(8)=8(16)

20=10100(2)=24(8)=14(16)

33=100001(2)=41(8)=21(16)

56=111000(2)=70(8)=38(16)

115=1110011(2)=163(8)=73(16)

246=11110110(2)=366(8)=f6(16)

522=1000001010(2)=1012(8)=20a(16)

1133=10001101101(2)=2155(8)=46d(16)

2166=100001110110(2)=4166(8)=876(16)

а вообще, можно использовать инженерный режим калькулятора windows для перевода в эти системы